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QUICK GUIDE TO USING 
THE LIBRARY 


Always refer to the instruction book until you are familiar 
with the use of the calculator. 

To enter a program: 

Enter goto/O/O/prog 

Then enter the keystrokes as given in the table on the 
right hand side of each program in the library. 

Then enter prog/goto/0/1 

Always remember to press (~A] when the upper case of a key 
is required. 

To use a program follow the pre execution (if applicable) and 
execution sequence given with it. Remember to wait till the 
display lights up before entering a number in the middle of 
an execution sequence. 

If you think you have made a mistake in program entry, 
check the program with some data for which you know the 
correct answer. If there is an error, either re enter the 
program, or find the error using the check codes and correct 
it as detailed in the instruction book. 

If you make a mistake in the execution sequence, it is 
generally necessary to enter C/goto/0/1 and to start the pre¬ 
execution and execution sequences again. 

It is a good idea to press [~c~ ] to clear any previous results 
before starting an execution sequence or, indeed, any 
calculation. 

A program can be halted in the middle of execution by 
entering /stop/ (i.e. pressing [A] (§1)). 
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29. MECHANICS 


29.1 Parallelogram law 

29.2 Constant acceleration motion 

29.3 Motion of a projectile 

29.4 Range calculations for a 
projectile 

29.5 Planetary motion 

29.6 Period and apsides of an orbit 

29.7 Doppler effect 

29.8 Compound pendulum 
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PARALLEL¬ 
OGRAM 
LAW OF 
VECTORS 
(FORCES, 
VELOCITIES 
ETC.) 



R = + Q 2 + 2PQ cos a) 

(i = arc sin | ^ sin uj 

Execution: 

P/run/Q/run/or/run/ R/run/0 


29.1 


KEY 

# 

KEY 

# 

HALT 

00 

goto 

40 

sto 

01 

0 

41 

0 

02 

0 

42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

cos 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

X 

13 


53 

rcl 

14 


54 

1 

15 


55 

X 

16 


56 

2 

17 


57 

+ 

18 


58 

rcl 

19 


59 

0 

20 


60 

x 2 

21 


61 

+ 

22 


62 

rcl 

23 


63 

1 

24 


64 

X 2 

25 


65 

= 

26 


66 

v/* 

27 


67 

stop 

28 


68 

1/x 

29 


69 

X 

30 


70 

rcl 

31 


71 

0 

32 


72 

X 

33 


73 

rcl 

34 


74 

2 

35 


75 

sin 

36 


76 

= 

37 


77 

arc 

38 


78 

sin 

39 


79 
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KEY 

# 

KEY 

# 

HALT 

00 

stop 

40 

sto 

01 

X 

41 

0 

02 

rcl 

42 

stop 

03 

1 

43 

sto 

04 

X 

44 

1 

05 

2 

45 

stop 

06 

4 

46 

sto 

07 

rcl 

47 

2 

08 

0 

48 

X 

09 

X 2 

49 

rcl 

10 

= 

50 

1 

11 

n/S 

51 

4- 

12 

goto 

52 

rcl 

13 

4 

53 

0 

14 

0 

54 

= 

15 


55 

stop 

16 

stop 

56 

X 

17 

sto 

57 

rcl 

18 

0 

58 

2 

19 

4 

59 


20 

( 

60 

( 

21 

4 

61 

rcl 

22 

2 

62 

1 

23 

4 

63 

X 

24 

rcl 

64 

rcl 

25 

0 

65 

2 

26 

= 

66 

X 2 

27 

sto 

67 

4 

28 

0 

68 

2 

29 

stop 

69 

) 

30 

) 

70 

= 

31 

= 

71 

goto 

32 

stop 

72 

0 

33 

X 

73 

6 

34 

rcl 

74 

sto 

35 

0 

75 

0 

36 

= 

76 

stop 

37 

goto 

77 

sto 

38 

0 

78 

1 

39 

0 

79 


CONSTANT 292 
ACCELERA¬ 
TION MOTION 

Initial velocity u 
Acceleration a 
After time t, velocity v = u + at 
distance travelled s = ut 4 }at 2 
Average velocity over the time: 
v BV = £(u 4 v) 
s = v av t 
v 2 = u 2 4 2as 

(a) Pre-execution: 

goto/O/1 /u/run/a/run 

Execution: 

(i) t/run/v/run/s 

(ii) goto/4/1 /s/run/v 

It is not necessary to repeat the 
pre-execution to repeat (i) or (ii). 

(bi Pre-execution: 

goto/3/5/u/ru n/a/ru n 

Execution: 

(i) s/run/v 

or (ii)goto/0/7/t/run/v/run/s 
It is not necessary to repeat the 
pre-execution to repeat (i) or (ii) 

(o Pre-execution: 

goto/5/5/v/run/u/run/v av 

Execution: 

(i) t/run/a/run 

(ii) a/run/t/run/s 

(iii) s/run/run/a 

It is necessary to repeat the pre¬ 
execution to repeat (i), (ii) 
or (iii). 
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PROJECTILES 


29.3 



v 0 initial velocity 
v = velocity 
0 angle of projection 

After time t, 

x = v 0 t cos 0 

y = v 0 t sin 0 ?gt 2 

v 2 1 g 2 t 2 — 2gv 0 t sin 0 

Pre-execution: 

(a) goto/0/1/g/run/0/run/vo/run 

(b) goto/6/6/run/0/run/vo/run 

(Pre-execution (b) enters S.I. 
standard gravity.) 

Execution: 

t/run/ x/run/ y/run/ v 

It is not necessary to repeat the 
pre-execution to continue with 
the execution. 
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KEY 

# 

KEY 

# 

HALT 

00 

X 

40 

sto 

01 

rcl 

41 

0 

02 

3 

42 

stop 

03 

X 

43 

sto 

04 

( 

44 

1 

05 


45 

stop 

06 

( 

46 

sto 

07 

2 

47 

2 

08 

X 

48 

stop 

09 

rcl 

49 

sto 

10 

2 

50 

3 

11 

X 

51 

X 

12 

rcl 

52 

rcl 

13 

1 

53 

2 

14 

sin 

54 

X 

15 

> 

55 

rcl 

16 

) 

56 

1 

17 

4- 

57 

cos 

18 

rcl 

58 


19 

2 

59 

stop 

20 

X 2 

60 

X 

21 

= 

61 

rcl 

22 

%/x 

62 

1 

23 

goto 

63 

tan 

24 

0 

64 


25 

9 

65 

( 

26 

C 

66 

rcl 

27 

9 

67 

0 

28 

./EE 

68 

* 

29 

8 

69 

2 

30 

0 

70 

X 

31 

6 

71 

rcl 

32 

6 

72 

3 

33 

5 

73 

X 2 

34 

sto 

74 

) 

35 

0 

75 

= 

36 

goto 

76 

stop 

37 

0 

77 

rcl 

38 

3 

78 

0 

39 


79 
















KEY 

# 

KEY 

# 

HALT 

00 

* 

40 

sto 

01 

stop 

41 

1 

02 

X 2 

42 

stop 

03 

= 

43 

sto 

04 

arc 

44 

2 

05 

sin 

45 

sin 

06 

* 

46 

X 

07 

2 

47 

2 

08 

— , 

48 

X 

09 

stop 

49 

rcl 

10 

9 

50 

1 

11 

0 

51 

* 

12 

= 

52 

rcl 

13 

+/- 

53 

0 

14 

stop 

54 

= 

15 

goto 

55 

stop 

16 

3 

56 

X 7 

17 

7 

57 

* 

18 

C 

58 

8 

19 

9 

59 

X 

20 

./EE 

60 

rcl 

21 

8 

61 

0 

22 

0 

62 

= 

23 

6 

63 

stop 

24 

6 

64 

X 

25 

5 

65 

4 

26 

sto 

66 

X 

27 

0 

67 

rcl 

28 

goto 

68 

2 

29 

0 

69 

tan 

30 

1 

70 

1/X 

31 


71 


32 


72 

stop 

33 


73 

goto 

34 


74 

0 

35 


75 

1 

36 


76 

X 

37 


77 

rcl 

38 


78 

0 

39 


79 


PROJECTILES 
-RANGE. 
HEIGHT AND 
FLIGHT TIME 


Maximum height 

attained. H = **** 

2g 

Time of flight. T= ^> - 9 

g 

For a given range and a given 
speed of projection, two angles of 
projection 0 O , 0, are possible. 
Error will be returned if none is 
possible. 

Pre-execution: 

(a) goto/5/8/run (assumes S.l. 
standard gravity) 

(b) g/sto/0 

Execution: 

(i) goto/O/1 /v 0 /run/0 /run/Vrun/ 
ffrun/ R 

(ii) goto/3/7/R/run/v o /run/0o/ 
run/0, 

To repeat (i) or (ii) it is not 
necessary to start with the /goto/. 
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PLANETARY 

MOTION 



The orbit is an ellipse with the sun 
at one focus. The position of a 
planet in its orbit at time t is 
found by Kepler's equation: 

0 — e sin 0 = nt 
0 is the eccentric anomaly, i.e. the 
angle made by a radius from the 
centre of the ellipse to a point 
Q, where Q lies on a circle of 
radius a concentric with the ellipse 
and the planet P lies on the 
normal from Q to the major axis 
of the ellipse. 

_ b 2 

c 2 = 1 . e is the eccentricity 

of the orbit. 

/’G[M + m) 

n = J 

where: 

G = gravitational constant 
M = mass of sun 
m = mass of planet 
a = semi major axis 
b semi minor axis 


29.5 


KEY 

# 

KEY 

a 

HALT 

00 

( 

40 

sto 

01 

rcl 

41 

2 

02 

2 

42 

X 

03 

X 

43 

rcl 

04 

rcl 

44 

0 

05 

0 

45 

+ 

06 

) 

46 

rcl 

07 

— 

47 

1 

08 

rcl 

48 


09 

5 

49 

sto 

10 

= 

50 

4 

11 

gin 

51 

rcl 

12 

6 

52 

2 

13 

5 

53 

X 

14 

+/- 

54 

rcl 

15 

gin 

55 

0 

16 

7 

56 

— 

17 

2 

57 

rcl 

18 

rcl 

58 

1 

19 

5 

59 

= 

20 

arc 

60 

sto 

21 

R 

61 

3 

22 

goto 

62 

rcl 

23 

0 

63 

4 

24 

0 

64 

+ 

25 

rcl 

65 

rcl 

26 

5 

66 

3 

27 

sto 

67 

* 

28 

4 

68 

2 

29 

goto 

69 

= 

30 

2 

70 

sto 

31 

3 

71 

5 

32 

rcl 

72 

arc 

33 

5 

73 

D ► R 

34 

goto 

74 

sin 

35 

2 

75 

X 

36 

1 

76 

rcl 

37 


77 

1 

38 


78 

+ 

39 


79 
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29.5(H) 


Pre-execution: 

store n and e in memories 0 and 1 respectively. 

Execution: 

t/run/0 0 

(note: 0 = 0 at first perihelion) 

Warning: this program may take some minutes to run. 
If no answer appears after 10 minutes: 
rcl/5/arc/D ► R/0° 


( 


PERIOD AND 
APSIDES OF 
AN ORBIT 


29.6 


Period, T 27 t 


/ *— 

V G(M i m) 


Apsidal distances 

- a(1 4- e). a(1 — e) 

Execution: 

(a) goto/0/1/a/run/G(M t m)/ 
run/T 

(b) goto/1/6/T/run/G(M f m)/ 
run/a 
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KEY 

# 

KEY 

# 

HALT 

00 


40 

y x 

01 


41 

3 

02 


42 

* 

03 


43 

stop 

04 


44 


05 


45 

v/* 

06 


46 

X 

07 


47 

2 

08 


48 

X 

09 


49 

7 T 

10 


50 

= 

11 


51 

goto 

12 


52 

0 

13 


53 

0 

14 


54 

stop 

15 


55 

* 

16 


56 

2 

17 


57 

4- 

18 


58 

rr 

19 


59 


20 


60 

x* 

21 


61 

X 

22 


62 

stop 

23 


63 

y x 

24 


64 

( 

25 


65 

3 

26 


66 

1/x 

27 


67 

) 

28 


68 


29 


69 

goto 

30 


70 

1 

31 


71 

5 

32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 















KEY 

# 

KEY 


HALT 

00 

stop 

40 

sto 

01 

v 

41 

0 

02 

stop 

42 

+ 

03 

+/- 

43 

Stop 

04 

= 

44 

* 

05 

sto 

45 

( 

06 

1 

46 

rcl 

07 

stop 

47 

0 

08 

X 

48 


09 

rcl 

49 

stop 

10 

1 

50 

) 

11 

+ 

51 

X 

12 

rcl 

52 

stop 

13 

0 

53 

= 

14 

= 

54 

stop 

15 

goto 

55 

goto 

16 

4 

56 

0 

17 

7 

57 

1 

18 


58 

sto 

19 


59 

0 

20 


60 

- 

21 


61 

stop 

22 


62 

+ 

23 


63 

( 

24 


64 

rcl 

25 


65 

0 

26 


66 

+ 

27 


67 

stop 

28 


68 

) 

29 


69 

X 

30 


70 

stop 

31 


71 

= 

32 


72 

stop 

33 


73 

goto 

34 


74 

1 

35 


75 

9 

36 


76 

sto 

37 


77 

0 

38 


78 

+ 

39 


79 


DOPPLER 297 

EFFECT 

(NON- 

RELATIVISTIC) 

v Q = observer velocity 
v s = source velocity 
f s = transmitted frequency 
f 0 = observed frequency 
c = velocity of wave 


(a) finds f„ (b) finds f 0 , 

(c) finds v s . 

lai Execution: 

goto/0/1 /c/run/vo/run/v,/ 
run/f 0 /run/f, 

(bi Execution: 

goto/1 /9/c/run/v,/run/v 0 / 
run/fj/run/fo 

lei Pre-execution: 

goto/3/7 /c/v 0 /ru n/f,/ru n 

Execution: 

fo/run/v, 

It is not necessary to repeat the 
pre execution to repeat the 
execution. 

To repeat (a), (b) or (c) it is not 
necessary to re enter the /goto/. 
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COMPOUND 

PENDULUM 



0 = point of suspension 
G = centre of gravity 
r = distance OG 
k 0 = radius of gyration about 0 
k G = radius of gyration about G 
\l = length of equivalent simple 


pendulum 
T = period 



Execution: 

(a) goto/0/7AVrun/T 

(b) goto/3/7/T/runA 

(c) goto/2/5/r/run/k G /runA /run/T 

(d) goto/0/1 /r/run/k 0 /runA7run/T 

Executions (a) and <b) can be used 
for a simple pendulum. 
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KEY 

# 

KEY 

* 

HALT 

00 

7T 

40 

1/x 

01 

= 

41 

X 

02 

X 2 

42 

stop 

03 

X 

43 

X 2 

04 

9 

44 

= 

05 

./EE 

45 

stop 

06 

8 

46 

-s- 

07 

0 

47 

9 

08 

6 

48 

./EE 

09 

6 

49 

8 

10 

5 

50 

0 

11 

= 

51 

6 

12 

goto 

52 

6 

13 

0 

53 

5 

14 

0 

54 

= 

15 


55 

nA 

16 


56 

X 

17 


57 

2 

18 


58 

X 

19 


59 

ir 

20 


60 

= 

21 


61 

goto 

22 


62 

0 

23 


63 

0 

24 


64 

-r 

25 


65 

{ 

26 


66 

X 2 

27 


67 

+ 

28 


68 

stop 

29 


69 

X 2 

30 


70 

) 

31 


71 

x ◄►y 

32 


72 

= 

33 


73 

goto 

34 


74 

0 

35 


75 

6 

36 


76 

* 

37 


77 

2 

38 


78 

* 

39 


79 
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30. CENTRE OF 
GRAVITY AND RADIUS 
GYRATION 

30.1 Straight rod 

30.2 Triangular laminar 

30.3 Rectangular laminar 

30.4 Curved rod (in a circular 
arc) 

30.5 Spherical shell 

30.6 Thin walled tube 

30.7 Solid cylinder 

30.8 Solid hemisphere 

30.9 Solid spheriod 

30.10 Solid cone 

30.11 Toroid of circular section 

30.12 Toroid of rectangular section 

In the programs 

G = position of centre of gravity 

k xx = radius of gyration about 
x—axis 

k yy = radius of gyration about 
y—axis 

k zz = radius of gyration about 
z—axis 


r 


r 


STRAIGHT 

ROD 

r 

i 


k$* = 0 

u 2 

k 2 _ k 2 = 2L_ 

"‘vy 1 2 

Execution: 

V/rijn/k 2 v 

Example: 

fi = 10/run/8. 3333333 
so k 2 v 8.3333333 


30.1 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 2 

01 


41 

* 

02 


42 

1 

03 


43 

2 

04 


44 


05 


45 

goto 

06 


46 

0 

07 


47 

0 

08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 



















KEY 

# 

KEY 

# 

HALT 

00 

X 2 

40 

sto 

01 

* 

41 

0 

02 

1 

42 

stop 

03 

8 

43 

sto 

04 

= 

44 

1 

05 

goto 

45 

stop 

06 

0 

46 

sto 

07 

0 

47 

2 

08 


48 

rcl 

09 


49 

0 

10 


50 

- 

11 


51 

rcl 

12 


52 

1 

13 


53 

4- 

14 


54 

3 

15 


55 

= 

16 


56 

stop 

17 


57 

rcl 

18 


58 

0 

19 


59 

X 2 

20 


60 

+ 

21 


61 

rcl 

22 


62 

1 

23 


63 

X 2 

24 


64 

+ 

25 


65 

( 

26 


66 

rcl 

27 


67 

0 

28 


68 

X 

29 


69 

rcl 

30 


70 

1 

31 


71 

) 

32 


72 

* 

33 


73 

1 

34 


74 

8 

35 


75 

= 

36 


76 

stop 

37 


77 

rcl 

38 


78 

2 

39 


79 


ANGULAR 

LAMINAR 


v 

id 



Execution: 

b^run/^/run/h 
run/d/run/k 2 v /run/k 2 * 

Example: 

b, = 100 
b 2 = h = 10 
d - 30 

k 2 v = 616.66667 
k 2 x = 5.5555556 


( 


















30.3 


RECT¬ 

ANGULAR 

LAMINAR 




k 2 = — 

*vv -J2 

Execution: 

b/run/k^/a/run/kyy 

Example: 

b = a = 10 

k 2 x 8.3333333 
k 2 v = 8.3333333 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 2 

01 


41 

* 

02 


42 

1 

03 


43 

2 

04 


44 

= 

05 


45 

goto 

06 


46 

0 

07 


47 

0 

08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 
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KEY 

# 

KEY 

# 

HALT 

00 

1 

40 

sto 

01 

X 2 

41 

0 

02 

= 

42 

stop 

03 

stop 

43 

sto 

04 

rcl 

44 

1 

05 

0 

45 

X 

06 

sin 

46 

( 

07 

X 

47 

rcl 

08 

rcl 

48 

0 

09 

0 

49 

sin 

10 

cos 

50 

* 

11 

-r 

51 

rcl 

12 

rcl 

52 

0 

13 

0 

53 

D ► R 

14 

D ► R 

54 


15 

+ 

55 

rcl 

16 

1 

56 

0 

17 

* 

57 

cos 

18 

2 

58 

) 

19 


59 

= 

20 

( 

60 

stop 

21 

rcl 

61 

rcl 

22 

0 

62 

0 

23 

sin 

63 

sin 

24 

X 2 

64 

X 

25 

-S- 

65 

rcl 

26 

rcl 

66 

0 

27 

0 

67 

cos 

28 

D ► R 

68 

+/- 

29 

X 2 

69 

* 

30 

) 

70 

rcl 

31 

X 

71 

0 

32 

rcl 

72 

D ► R 

33 

1 

73 

+ 

34 

X 2 

74 

1 

35 

= 

75 

- 

36 

goto 

76 

2 

37 

0 

77 

X 

38 

0 

78 

rcl 

39 


79 


CIRCULAR 304 
ROD 



k 2 = — 
vv 2a 2 

[a (a + sin a cos a) 

2 sin 2 a] 

Execution: 

a/run/a/run/d/run/k ; x /run/k 2 v 


Enter a in degrees. 

N.B. The formulae are valid 
only when a is measured in 
radians. The program takes 
this into account. 


( 


















SPHERICAL 

SHELL 



Radius a 

Thickness t 

kxx = ky y = k^ 

= 2a! 

3 

Volume = 4?ra 2 t 

Execution: 

a/run/k 2 */t/run/volume 

Example: 

a = t = 10 
k 2 x = 66.666667 
vol - 12566.371 


30.5 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 2 

01 


41 

x 

02 


42 

2 

03 


43 

* 

04 


44 

3 

05 


45 

X 

06 


46 

stop 

07 


47 

X 

08 


48 

6 

09 


49 

X 

10 


50 

7T 

11 


51 

= 

12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


r 














KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

X 

07 


47 

rcl 

08 


48 

1 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

X 

13 


53 

2 

14 


54 

X 

15 


55 

ir 

16 


56 

- 

17 


57 

stop 

18 


58 

rcl 

19 


59 

0 

20 


60 

X 2 

21 


61 

stop 

22 


62 

-5- 

23 


63 

2 

24 


64 

+ 

25 


65 

( 

26 


66 

rcl 

27 


67 

1 

28 


68 

X 2 

29 


69 

* 

30 


70 

1 

31 


71 

2 

32 


72 

) 

33 


73 

= 

34 


74 

goto 

35 


75 

0 

36 


76 

0 

37 


77 


38 


78 


39 


79 


THIN 

WALLED 

CIRCULAR 

SECTION 

TUBE 



Volume 2na Pt 
k£x = a 2 

a 2 P 2 

kyy = kf* = ~2 + ^2 

Execution: 

a/run/P/run/t/run/volume/run/ 

kj,/run/k 2 v 

Example: 

a = P = t = 10 
vol = 6283.1854 
k 2 x - 100 
k 2 v = 58.333333 


( 


















SOLID 

CYLINDER 


G 

♦ 


V 



volume = 7ra 2 V 


Execution: 

a/runA7run/volume/run/k; K / 

run/ky y 

Example: 

a = 10, C = 10 
volume 3141.5927 
kxx = 50 
k 2 v = 33.333333 


30.7 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

X 

06 


46 

rcl 

07 


47 

0 

08 


48 

X 2 

09 


49 

X 

10 


50 

7T 

11 


51 

= 

12 


52 

stop 

13 


53 

rcl 

14 


54 

0 

15 


55 

X 2 

16 


56 

4- 

17 


57 

2 

18 


58 

1 = 

19 


59 

stop 

20 


60 

4- 

21 


61 

2 

22 


62 

+ 

23 


63 

( 

24 


64 

rcl 

25 


65 

1 

26 


66 

X 2 

27 


67 

4 

28 


68 

1 

29 


69 

2 

30 


70 

) 

31 


71 

= 

32 


72 

goto 

33 


73 

0 

34 


74 

0 

35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 


















KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 2 

03 


43 

X 

04 


44 

rcl 

05 


45 

0 

06 


46 

X 

07 


47 

2 

08 


48 

X 

09 


49 

7T 

10 


50 

- 5 - 

11 


51 

3 

12 


52 

= 

13 


53 

stop 

14 


54 

rcl 

15 


55 

0 

16 


56 

X 2 

17 


57 

X 

18 


58 

2 

19 


59 

* 

20 


60 

5 

21 


61 

= 

22 


62 

stop 

23 


63 

rcl 

24 


64 

0 

25 


65 

X 2 

26 


66 

X 

27 


67 

8 

28 


68 

3 

29 


69 

* 

30 


70 

3 

31 


71 

2 

32 


72 

0 

33 


73 

— 

34 


74 

goto 

35 


75 

0 

36 


76 

0 

37 


77 


38 


78 


39 


79 


SOLID 

HEMISPHERE 


v 



Execution: 

a/run/volurne/run/k 2 */run/k 2 v 

Example: 

a = 10 

vol - 2094.395 
k 2 x * 40 
kj y = 25.9375 


( 




















30.9 


SOLID 

SPHEROID 


v 



Volume = 


47rab ? 

3 


k 2 


2^1 

5 


+ b 2 


Execution: 

a/run/b/run/volume/ 

run/k*,/run/k 2 v 

Example: 

a - 10, b = 10 
vol 4188.78 
k 2 * - 40 
ky V 40 


( 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

X 2 

06 


46 

X 

07 


47 

rcl 

08 


48 

0 

09 


49 

X 

10 


50 

V 

11 


51 

X 

12 


52 

4 

13 


53 

4- 

14 


54 

3 

15 


55 

= 

16 


56 

stop 

17 


57 

rcl 

18 


58 

1 

19 


59 

X 2 

20 


60 

X 

21 


61 

2 

22 


62 

4- 

23 


63 

5 

24 


64 


25 


65 

stop 

26 


66 

rcl 

27 


67 

0 

28 


68 

X 2 

29 


69 

+ 

30 


70 

rcl 

31 


71 

1 

32 


72 

X 2 

33 


73 

4- 

34 


74 

5 

35 


75 

= 

36 


76 

goto 

37 


77 

0 

38 


78 

0 

39 


79 





















KEY 

# 

KEY 

# 

HALT 

00 

0 

40 

sto 

01 

0 

41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

X 

06 


46 

rcl 

07 


47 

0 

08 


48 

X 2 

09 


49 

X 

10 


50 

t r 

11 


51 

* 

12 


52 

3 

13 


53 

= 

14 


54 

stop 

15 


55 

rcl 

16 


56 

0 

17 


57 

X 2 

18 


58 

X 

19 


59 

./EE 

20 


60 

3 

21 


61 

= 

22 


62 

stop 

23 


63 

rcl 

24 


64 

0 

25 


65 

X 2 

26 


66 

X 

27 


67 

4 

28 


68 

+ 

29 


69 

rcl 

30 


70 

1 

31 


71 

X 2 

32 


72 

X 

33 


73 

3 

34 


74 

4 

35 


75 

8 

36 


76 

0 

37 


77 

= 

38 


78 

goto 

39 


79 


SOLID 

CONE 



Execution: 

a/run/h/run/ vol/run/ kj( ,/run/ ky V 


( 















TOROID 


30.11 


f 


Volume = 27rab 2 


= ^f 


k2 _ k2 = »1 + 5bi 

^2i 2 8 

Execution: 

a/run/b/run/vol/run/k^/run/k'y 


{ 


KEY 

# 

KEY 

# 

HALT 

00 

0 

40 

sto 

01 

X 2 

41 

0 

02 

+ 

42 

stop 

03 

2 

43 

sto 

04 

= 

44 

1 

05 

goto 

45 

X 2 

06 

0 

46 

X 

07 

0 

47 

rcl 

08 


48 

0 

09 


49 

X 

10 


50 

7r 

11 


51 

X 2 

12 


52 

X 

13 


53 

2 

14 


54 


15 


55 

stop 

16 


56 

rcl 

17 


57 

1 

18 


58 

X 2 

19 


59 

X 

20 


60 

./EE 

21 


61 

7 

22 


62 

5 

23 


63 

4- 

24 


64 

rcl 

25 


65 

0 

26 


66 

X 2 

27 


67 

= 

28 


68 

stop 

29 


69 

rcl 

30 


70 

1 

31 


71 

X 2 

32 


72 

X 

33 


73 

1 

34 


74 

./EE 

35 


75 

2 

36 


76 

5 

37 


77 

•f 

38 


78 

rcl 

39 


79 
















KEY 

# 

KEY 

# 

HALT 

00 

X 2 

40 

sto 

01 

* 

41 

0 

02 

1 

42 

Stop 

03 

2 

43 

sto 

04 

) 

44 

1 

05 

= 

45 

stop 

06 

goto 

46 

sto 

07 

0 

47 

2 

08 

0 

48 

X 

09 


49 

rcl 

10 


50 

0 

11 


51 

X 

12 


52 

rcl 

13 


53 

1 

14 


54 

X 

15 


55 

rr 

16 


56 

X 

17 


57 

2 

18 


58 

= 

19 


59 

stop 

20 


60 

rcl 

21 


61 

0 

22 


62 

X 2 

23 


63 

+ 

24 


64 

( 

25 


65 

rcl 

26 


66 

1 

27 


67 

X 2 

28 


68 

+ 

29 


69 

4 

30 


70 

) 

31 


71 

= 

32 


72 

stop 

33 


73 

•f 

34 


74 

2 

35 


75 

+ 

36 


76 

( 

37 


77 

rcl 

38 


78 

2 

39 


79 


TOROID 3012 
OF 

RECT¬ 

ANGULAR 

SECTION 



vol - 27rat¥ 

= a 2 + J 

a 2 t 2 e 2 

K ” Kvv 2 8 12 

Execution: 

a/run/t/run/V/run/vol/run/ki^ 

run/ky V 


( 























31. FLUID MECHANICS 


31.1 Manometer 

31.2 Pitot static tube 

31.3 Sharp edged orifice 

31.4 Venturi 

31.5 Pipe flow 

31.6 Sudden expansion 

31.7 Ideal pressure rise diffuser 

31.8 Sluicegate 

31.9 Hydraulic jump 

31.10 Compressible flow 


r 


( 


MANOMETER 


31.1 


Pi P2 


KJ 


P 1 -P 2 = ghiPm -p) 

Execution: 

p m /run/p/run/h/run/pressure diff 


KEY 

# 

KEY 

# 

HALT 

00 


40 

— 

01 


41 

stop 

02 


42 

X 

03 


43 

stop 

04 


44 

X 

05 


45 

9 

06 


46 

./EE 

07 


47 

8 

08 


48 

0 

09 


49 

6 

10 


50 

6 

11 


51 

5 

12 


52 

= 

13 


53 

goto 

14 


54 

0 

15 


55 

0 

16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 


















KEY 

# 

KEY 

# 

HALT 

00 


40 

- 

01 


41 

stop 

02 


42 

X 

03 


43 

2 

04 


44 

-r 

05 


45 

stop 

06 


46 

= 

07 


47 


08 


48 

goto 

09 


49 

0 

10 


50 

0 

11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


PITOT 

STATIC 

TUBE 


u = velocity of fluid 
P = total pressure 
p = static pressure 
p = density 



Execution: 

P/run/p/run/p/run/u 


( 


31.2 
















SHARP 

EDGED 

ORIFICE 


A = area 

Q volume flow rate 
C d discharge coefficient 
Q = AC d V2gh 

Execution: 

h/run/C d /run/A/run/Q 


31.3 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

1 

02 


42 

9 

03 


43 

./EE 

04 


44 

6 

05 


45 

1 

06 


46 

3 

07 


47 

3 

08 


48 


09 


49 

n/* 

10 


50 

X 

11 


51 

stop 

12 


52 

X 

13 


53 

stop 

14 


54 


15 


55 

goto 

16 


56 

0 

17 


57 

0 

18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


r 














KEY 

# 

KEY 

# 

HALT 

00 


40 

-r 

01 


41 

stop 

02 


42 

= 

03 


43 

X 2 

04 


44 

- 

05 


45 

1 

06 


46 

X 

07 


47 

stop 

08 


48 

= 

09 


49 

1/x 

10 


50 

X 

11 


51 

2 

12 


52 

X 

13 


53 

( 

14 


54 

stop 

15 


55 

- 

16 


56 

stop 

17 


57 

) 

18 


58 

= 

19 


59 


20 


60 

goto 

21 


61 

0 

22 


62 

0 

23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


VENTURI 314 


p, = static pressure in tube 
p 2 = static pressure in throat 
a, = cross sectional area of 
tube 

a 2 = cross sectional area of 
throat 

u = velocity of fluid 
p density 

u = / 2<Pl~Pa) 

V»(H 

Execution: 

a 1 /run/a 2 /run/p/run/p,/run/p 2 / 

run/u 


( 
















PIPE FLOW 


31.5 


L = length 
D = diameter 
C, = skin inertia coefficient 
p = density 
U m = mean velocity 

Pressure drop = 2^C,pUm 

Execution: 

U m /run/p/run/C,/run/L/run/D/ 
run/pressure drop 


( 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 2 

01 


41 

X 

02 


42 

stop 

03 


43 

X 

04 


44 

stop 

05 


45 

X 

06 


46 

stop 

07 


47 

* 

08 


48 

stop 

09 


49 

X 

10 


50 

2 

11 


51 

= 

12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














31.6 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

— 

03 


43 

stop 

04 


44 


05 


45 

X 2 

06 


46 

* 

07 


47 

1 

08 


48 

9 

09 


49 

m 

m 

10 


50 

6 

11 


51 

1 

12 


52 

3 

13 


53 

3 

14 


54 


15 


55 

stop 

16 


56 

* 

17 


57 

stop 

18 


58 

H- 

19 


59 

+ 

20 


60 

1 

21 


61 

= 

22 


62 

X 2 

23 


63 

X 

24 


64 

rcl 

25 


65 

0 

26 


66 

X 2 

27 


67 

-r 

28 


68 

1 

29 


69 

9 

30 


70 

./EE 

31 


71 

6 

32 


72 

1 

33 


73 

3 

34 


74 

3 

35 


75 

= 

36 


76 

goto 

37 


77 

0 

38 


78 

0 

39 


79 


PIPE 
FLOW 
(SUDDEN 
EXPANSION) 


_rr 

—L_ 

head loss = — 1 

2g 


Execution: 

u,/run/u 2 /run/head loss/A,/run/ 
A 2 /run/Ah 


( 

















IDEAL 

PRESSURE 

RISE 

DIFFUSER 




Execution: 


A j /run/A^/run/u, /run/p/run/Ap 
A 2 > A, 


KEY 

HALT 

stop 

X 2 

+/- 

+ 

1 

X 

stop 

X 2 

X 

stop 

2 


goto 

0 

0 


f 


















31.8 


KEY 

# 

KEY 

# 

HALT 

00 

X 2 

40 

sto 

01 

■f 

41 

0 

02 

stop 

42 

stop 

03 

* 

43 

sto 

04 

9 

44 

1 

05 

./EE 

45 

+ 

06 

8 

46 

rcl 

07 

0 

47 

0 

08 

6 

48 

X 

09 

6 

49 

rcl 

10 

5 

50 

1 

11 

= 

51 

= 

12 

stop 

52 

1/x 

13 

goto 

53 

X 

14 

4 

54 

rcl 

15 

0 

55 

0 

16 


56 

X 2 

17 


57 

X 

18 


58 

2 

19 


59 

= 

20 


60 

goto 

21 


61 

0 

22 


62 

0 

23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


SLUICE 

GATE 





« = 2h? 

2 h 2 (h, •» h 2 ) 


ui 

gh 7 


Execution: 

(a) h,/run/h 2 /run/F| 

(b) goto/4/0/u 2 /run/h 2 /run/F| 


( 






















HYDRAULIC 

JUMP 


9 <? 

_Lv - 

i 

77 --- 


p2 _ h 2 (hi 4- h 2 ) 

1-1 " 2h? 

_ 2 H 1 (h 1 4- h 2 ) 

p2 ~ 2h 2 

Execution: 


(a) hj/run/h^run/F^ 

(b) h 1 /run/h 2 /run/Fi( 


31.9 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

•f 

03 


43 

stop 

04 


44 

sto 

05 


45 

1 

06 


46 

X 

07 


47 

rcl 

08 


48 

1 

09 


49 

+ 

10 


50 

rcl 

11 


51 

0 

12 


52 

X 2 

13 


53 

-5- 

14 


54 

2 

15 


55 

= 

16 


56 

goto 

17 


57 

0 

18 


58 

0 

19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 





















KEY 

# 

KEY 

# 

HALT 

00 


40 

X 2 

01 


41 

X 

02 


42 

( 

03 


43 

stop 

04 


44 

sto 

05 


45 

0 

06 


46 

- 

07 


47 

1 

08 


48 

) 

09 


49 

-r 

10 


50 

2 

11 


51 

+/- 

12 


52 

+ 

13 


53 

1 

14 


54 

= 

15 


55 

stop 

16 


56 

y* 

17 


57 

( 

18 


58 

rcl 

19 


59 

0 

20 


60 

— 

21 


61 

1 

22 


62 

= 

23 


63 

1/x 

24 


64 

X 

25 


65 

rcl 

26 


66 

0 

27 


67 

) 

28 


68 

= 

29 


69 

stop 

30 


70 

y x 

31 


71 

rcl 

32 


72 

0 

33 


73 

1/x 

34 


74 


35 


75 

goto 

36 


76 

0 

37 


77 

0 

38 


78 


39 


79 


COM¬ 

PRESSIBLE 

FLOW 


Perfect gas relationships: 

M = mach number 
7 = ratio of specific heats = 
1.405 for dry air. 

.1 = L (7 —DM 2 ] 

T 0 V 2 / 

k- 

£-(-bF). 

Execution: 

M/run/7/run/J /run/r-/run/— 

•0 Po 


( 

















32. RELATIVITY 


32.1 Lorentz transformation 

32.2 Fitzgerald contraction, time 
dilation and relativistic mass 
change 

32.3 Doppler effect 

32.4 Red shift and blue shift 

32.5 Motion of relativistic 
electron 

32.6 Behaviour of relativistic 
electron in uniform electro¬ 
static field 


r 


( 


LORENTZ 

TRANS¬ 

FORMATION 


32.1 



Execution: 

v/run/x/run/t/ 
run/x'/run/t’/ 
new x/run/new t/run/ 
new x'/run/new t' 


To change v: 
goto/0/1 

To enter standard c: 
goto/6/7/run 
To enter own c: 
goto/7/8/c/run 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

* 

01 

1 

41 

rcl 

02 

X 

42 

0 

03 

rcl 

43 

= 

04 

3 

44 

sto 

05 

* 

45 

1 

06 

rcl 

46 

X 2 

07 

0 

47 

+/- 

08 

) 

48 

+ 

09 

X 

49 

1 

10 

rcl 

50 

= 

11 

2 

51 


12 

= 

52 

1/x 

13 

goto 

53 

sto 

14 

1 

54 

2 

15 

6 

55 

stop 

16 


56 

sto 

17 


57 

3 

18 


58 


19 


59 

( 

20 


60 

rcl 

21 


61 

1 

22 


62 

X 

23 


63 

rcl 

24 


64 

0 

25 


65 

X 

26 


66 

stop 

27 

C 

67 

sto 

28 

2 

68 

4 

29 

./EE 

69 

) 

30 

9 

70 

X 

31 

9 

71 

rcl 

32 

7 

72 

2 

33 

9 

73 


34 

2 

74 

stop 

35 

5 

75 

rcl 

36 

./EE 

76 

4 

37 

8 

77 

- 

38 

sto 

78 

( 

39 

0 

79 


( 


















KEY 

# 

KEY 

# 

HALT 

00 


40 


01 


41 

rcl 

02 


42 

0 

03 


43 

= 

04 


44 

X 2 

05 


45 

+/- 

06 


46 

+ 

07 


47 

1 

08 


48 

= 

09 


49 


10 


50 

sto 

11 


51 

1 

12 


52 

stop 

13 


53 

rcl 

14 


54 

1 

15 


55 

= 

16 


56 

goto 

17 


57 

0 

18 


58 

0 

19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


FITZ¬ 
GERALD 
CON¬ 
TRACTION, 
TIME 
DILATION 
AND MASS 
CHANGE 



m ' m (’ S) 


Pre-execution: 

Store c in memory 0 

Execution: 

(i) v/run/T/x/run/T' 

(ii) v/run/T'/^/run/ T 

(iii) v/run/L/x/run/ L’ 

(iv) v/run/L'/^/run/ L 

(v) v/run/M/^/run/ M' 

(vi) v/run/M'/x/run/ M 


( 














RELATIVISTIC 

DOPPLER 

EFFECT 


f, - source frequency 
f 0 = observed frequency 
c = 2.997925 x 10 8 ms 1 
v speed of source (relative to 
observer) 

0 = direction of motion of 
source relative to observer 


v 

1 - - cos 0 
c 

Execution: 

(a) v/run/0/run/f t /x/run/f o 

(b) v/run/0/run/f o /^/run/f, 

After (a) to find new f 0 given old 
v, 0 and new f t : 

V=/fo 

After (b) to find new f s given old 

v, 0 and new f 0 : 

fo/=/f. 


( 


32.3 


KEY 

# 

KEY 

# 

HALT 

00 

3 

40 

4- 

01 

5 

41 

2 

02 


42 

./EE 

03 


43 

9 

04 


44 

9 

05 


45 

7 

06 


46 

9 

07 


47 

2 

08 


48 

5 

09 


49 

./EE 

10 


50 

8 

11 


51 

= 

12 


52 

sto 

13 


53 

0 

14 


54 

X 2 

15 


55 

47- 

16 


56 

+ 

17 


57 

1 

18 


58 


19 


59 


20 


60 

T 

21 


61 

( 

22 


62 

stop 

23 


63 

cos 

24 


64 

X 

25 


65 

rcl 

26 


66 

0 

27 


67 

+/- 

28 


68 

+ 

29 


69 

1 

30 


70 

) 

31 


71 

= 

32 


72 

sto 

33 


73 

0 

34 


74 

stop 

35 


75 

rcl 

36 


76 

0 

37 


77 

= 

38 


78 

goto 

39 


79 
















KEY 

# 

KEY 

# 

HALT 

00 

4- 

40 

* 

01 

stop 

41 

rcl 

02 

= 

42 

0 

03 

X 2 

43 


04 

— 

44 

1 

05 

1 

45 

* 

06 

4 

46 

( 

07 

( 

47 

+ 

08 

+ 

48 

2 

09 

2 

49 

) 

10 

) 

50 

4-/- 

11 

+/- 

51 

= 

12 

X 

52 

v/x 

13 

rcl 

53 

sto 

14 

0 

54 

1 

15 

= 

55 

stop 

16 

stop 

56 

rcl 

17 

goto 

57 

1 

18 

4 

58 

= 

19 

0 

59 

goto 

20 


60 

0 

21 


61 

0 

22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 

C 

67 


28 

2 

68 


29 

./EE 

69 


30 

9 

70 


31 

9 

71 


32 

7 

72 


33 

9 

73 


34 

2 

74 


35 

5 

75 


36 

m 

m 

76 


37 

8 

77 


38 

sto 

78 


39 

0 

79 


RED SHIFT 324 
AND BLUE 
SHIFT 


Relativistic Doppler effect with 
source moving away from 
observer! with velocity v 



Pre-execution: 

For S.l. units: 
goto/6/7/run 

For own value of c: 
goto/7/8/c/run 

This pre-execution need not be 
repeated. 

Execution: 

(a) v/run/c/run/f t /x/run/f 0 

(b) v/run/c/run/f 0 /^/run/f $ 

(c) goto/4/0/fo/run/f s /run/ v 

(d) goto/4/0/X s /run/X 0 /run/v 

Where X 0 ; are the wavelengths 
corresponding to frequencies 

f 0 ; f*- 


( 















RELATIVISTIC 
MASS AND 
OBSERVED 
VELOCITY 
OF AN 
ACCEL¬ 
ERATED 
ELECTRON 
OR ION 

m = rest mass 

(9.1096 x 10~ 31 kg for 
electron) 
e = charge 

(1.6022 x 10- 10 for 
electron) 

c = speed of light 
V - accelerating potential 
(volts) 



Pre-execution: 

Store m, e, c in memories 0, 1, 2 
respectively. 

Execution: 

V/run/M r Mjn/V, 


32.5 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

rcl 

02 


42 

1 

03 


43 

4- 

04 


44 

rcl 

05 


45 

0 

06 


46 

4- 

07 


47 

rcl 

08 


48 

2 

09 


49 

X 2 

10 


50 

•f 

11 


51 

1 

12 


52 

= 

13 


53 

sto 

14 


54 

3 

15 


55 

X 

16 


56 

rcl 

17 


57 

0 

18 


58 

= 

19 


59 

stop 

20 


60 

rcl 

21 


61 

3 

22 


62 

X 2 

23 


63 

1/x 

24 


64 

47- 

25 


65 

4- 

26 


66 

1 

27 


67 

= 

28 


68 


29 


69 

X 

30 


70 

rcl 

31 


71 

2 

32 


72 

= 

33 


73 

goto 

34 


74 

0 

35 


75 

0 

36 


76 


37 


77 


38 


78 


39 


79 


( 















KEY 

# 

KEY 

# 

HALT 

00 


~40” 

X 

01 


41 

rcl 

02 


42 

0 

03 


43 

+ 

04 


44 

1 

05 


45 

- 5 - 

06 


46 

( 

07 


47 

X 2 

08 


48 


09 


49 

1 

10 


50 

) 

11 


51 

X 

12 


52 

rcl 

13 


53 

0 

14 


54 

X 

15 


55 

stop 

16 


56 

= 

17 


57 

arc 

18 


58 

tan 

19 


59 

goto 

20 


60 

0 

21 


61 

0 

22 


62 

+ 

23 


63 

stop 

24 


64 

* 

25 


65 

stop 

26 


66 

X 2 

27 


67 

= 

28 


68 

sto 

29 


69 

0 

30 


70 

goto 

31 


71 

0 

32 


72 

0 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


32 6 

DEFLECTION 
OF A 

RELATIVISTIC 
ELECTRON 
OR ION BY 
A SMALL 
TRANS¬ 
VERSE FIELD 


Field F 


Energy eV 
Deflection 0 



Pre-execution: 

goto/2/3/e/ru n/m/ru n/c/ru n 


Execution: 

V/run/F/r un/tf 

Remember to use a consistent 
set of units (e.g. S.I.). 


( 

















33. OPTICS 

33.1 Snell's Law 

33.2 Total internal reflection 

33.3 Simple Lens 

33.4 Diffraction grating 


r 


( 


33.1 


SNELL'S 

LAW 



Incident angle - 0 
Refractive angle 
Relative refractive index 

R.I. = 

sin <f> 

Execution: 

(a) goto/O/1/0/run/y>/run/R.I. 

(b) goto/1/0/R.I./run/y>/run/fl 

(c) goto/2/0/R.I./run/(//run/y? 

It is not necessary to repeat the 
/goto/ to repeat (a), (b) or (c). 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sin 

01 


41 

* 

02 


42 

stop 

03 


43 

sin 

04 


44 


05 


45 

goto 

06 


46 

0 

07 


47 

0 

08 


48 

stop 

09 


49 

X 

10 


50 

stop 

11 


51 

sin 

12 


52 

= 

13 


53 

arc 

14 


54 

sin 

15 


55 

goto 

16 


56 

0 

17 


57 

9 

18 


58 

stop 

19 


59 

l/x 

20 


60 

X 

21 


61 

stop 

22 


62 

sin 

23 


63 


24 


64 

arc 

25 


65 

sin 

26 


66 

goto 

27 


67 

1 

28 


68 

9 

29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 
















KEY 

# 

KEY 

# 

HALT 

00 


40 

sin 

01 


41 

1/x 

02 


42 

goto 

03 


43 

0 

04 


44 

0 

05 


45 

stop 

06 


46 

1/x 

07 


47 

arc 

08 


48 

sin 

09 


49 

goto 

10 


50 

0 

11 


51 

6 

12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


TOTAL 

INTERNAL 

REFLECTION 



critical angle = a 
relative refractive index = 

R.l. > 1 

Execution: 

(a) goto/0/1 /a/run/ R.l. 

(b) goto/0/7/R. I ./run/a 

It is not necessary to repeat the 
/goto/ to repeat (a) or (b). 


< 
















FOCAL 

LENGTH 

OF A 

SIMPLE 

SPHERICAL 

LENS 



r i* r 2 ~ radii of curvature of lens 
surfaces. 

n - relative refractive index. 


For concave surfaces take r 
negative. 

For plane surfaces take r 2 ~ 10" 
f is negative for a virtual focus. 

Execution: 

(a) goto/0/1/r,/run/r 2 /run/n/ 
run/f 

(b) goto/1/7/f/run/n/run/r, / 
run/r 2 

(c) goto/3/3/f/run/r! /run/r 2 / 
run/n 

It is not necessary to repeat the 
/goto/ to repeat (a), (b) or (c). 


33.3 


KEY 

# 

KEY 

# 

HALT 

00 

1/x 

40 

1/x 

01 

> 

41 

+ 

02 

+ 

42 

stop 

03 

1 

43 

1/x 

04 


44 

X 

05 

goto 

45 

( 

06 

3 

46 

stop 

07 

2 

47 

- 

08 


48 

1 

09 


49 

) 

10 


50 

= 

11 


51 

1/x 

12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 

stop 

16 


56 

1/x 

17 


57 

4* 

18 


58 

( 

19 


59 

stop 

20 


60 

- 

21 


61 

1 

22 


62 

) 

23 


63 

— 

24 


64 

Stop 

25 


65 

1/x 

26 


66 

= 

27 


67 

1/x 

28 


68 

goto 

29 


69 

1 

30 


70 

6 

31 


71 

stop 

32 


72 

1/x 

33 


73 

-r 

34 


74 

{ 

35 


75 

stop 

36 


76 

1/x 

37 


77 

+ 

38 


78 

stop 

39 


79 


( 



















KEY 

# 

KEY 

# 

HALT 

00 


40 

* 

01 


41 

stop 

02 


42 

= 

03 


43 

arc 

04 


44 

tan 

05 


45 

sin 

06 


46 

X 

07 


47 

stop 

08 


48 

-r 

09 


49 

stop 

10 


50 

= 

11 


51 

goto 

12 


52 

0 

13 


53 

0 

14 


54 

stop 

15 


55 

X 

16 


56 

stop 

17 


57 

4- 

18 


58 

stop 

19 


59 

= 

20 


60 

arc 

21 


61 

sin 

22 


62 

tan 

23 


63 

X 

24 


64 

stop 

25 


65 

= 

26 


66 

goto 

27 


67 

1 

28 


68 

5 

29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


33 4 

DIFFRACTION 

GRATING 



d = width of slit 
D " distance to image 
x = displacement of nth 

order interference fringe 
X - wavelength 
0 = angle of diffraction 
^ d sin 0 
n 


Execution: 

(a) goto/0/1/x/run/D/run/d/run/ 
n/run/X 

(b) goto/1/6/X/run/n/run/d/run/ 
D/run/x 


It is not necessary to repeat the 
/goto/ to repeat (a) or (b). 


















34. ELECTROMECHANICS 


34.1 Capacitance of Sphere, 
Concentric Spheres and 
Concentric cylinders 

34.2 Field of a dipole 

34.3 Radiation from a half wave 
dipole 

34.4 Radiation from a loop or 
ferrite antenna 

34.5 Motion of an electron in a 
transverse magnetic field 

34.6 Velocity of an accelerated 
ion 

34.7 Electrostatic deflection in a 
cathode ray tube 

34.8 Magnetic deflection in a 
cathode ray tube 

34.9 Wavelength in a waveguide 


( 



CAPACITANCE 
OF SPHERE, 
CONCENTRIC 
SPHERES 
AND 

CONCENTRIC 

CYLINDERS 


(i) Sphere of radius a: 

C - 47re 0 e f a 

(ii) Concentric spheres of radii 
a and b, b > a: 

C = 47re 0 e r 

b — a 

(iii) Concentric cylinders of radii 
a and b, b > a, length V: 

C = 47re 0 c r 


Execution: 

(i) goto/1 /0/a/run/e r /run/C 

(ii) goto/1/6/a/run/b/run/e r / 
run/C 

(iii) goto/0/1/a/run/b/run/V/run/ 
e f /run/C 


) 


r 


34.1 


KEY 

# 

KEY 

# 

HALT 

00 


40 

1/x 

01 


41 

X 

02 


42 

stop 

03 


43 

= 

04 


44 

In 

05 


45 

X 

06 


46 

2 

07 


47 

= 

08 


48 

1/x 

09 


49 

X 

10 


50 

stop 

11 


51 

= 

12 


52 

goto 

13 


53 

2 

14 


54 

2 

15 


55 

1/x 

16 


56 

- 

17 


57 

stop 

18 


58 

1/x 

19 


59 

= 

20 


60 

1/x 

21 


61 

X 

22 


62 

1 

23 


63 

./EE 

24 


64 

1 

25 


65 

1 

26 


66 

2 

27 


67 

6 

28 


68 

5 

29 


69 

./EE 

30 


70 

1 

31 


71 

0 

32 


72 

+/- 

33 


73 

X 

34 


74 

stop 

35 


75 

- 

36 


76 

goto 

37 


77 

0 

38 


78 

0 

39 


79 















KEY 

# 

KEY 

# 

HALT 

00 


40 

sin 

01 


41 

-5- 

02 


42 

stop 

03 


43 

X 

04 


44 

stop 

05 


45 

-r 

06 


46 

Stop 

07 


47 

-r 

08 


48 

2 

09 


49 

= 

10 


50 

stop 

11 


51 

X 

12 


52 

( 

13 


53 

X 

14 


54 

3 

15 


55 

7 

16 


56 

6 

17 


57 

./EE 

18 


58 

7 

19 


59 

3 

20 


60 

= 

21 


61 

stop 

22 


62 

) 

23 


63 

T" 

24 


64 

2 

25 


65 

= 

26 


66 

goto 

27 


67 

0 

28 


68 

0 

29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


FIELD 

STRENGTH 

AND 

POYNTING 
VECTOR 
DUE TO AN 
ELECTRIC 
DIPOLE 

z 

p direction of 



Epi, = MocH pk 

p _ Ep k H p k 
2 

X = wavelength 

Execution: 

fl/run/r/run/lds/run/X/run/ 
H,a/run/E„ k /run/ P^ v 


- 
















RADIATION 
FROM A 
HALF WAVE 
DIPOLE 



R, « 79.2ft 



0 in degrees 


Execution: 

l/rtin/r/run/fl/run/H,^ /run/E, lk / 
run/P lv /run/P, 


34.3 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

1 

41 

0 

02 

-r 

42 

stop 

03 

2 

43 

sto 

04 

= 

44 

1 

05 

stop 

45 

stop 

06 

rcl 

46 

sto 

07 

0 

47 

2 

08 

X 2 

48 

cos 

09 

X 

49 

X 

10 

3 

50 

9 

11 

6 

51 

0 

12 

./EE 

52 

= 

13 

4 

53 

cos 

14 

5 

54 


15 


55 

rcl 

16 

goto 

56 

2 

17 

0 

57 

sin 

18 

0 

58 

X 

19 


59 

rcl 

20 


60 

0 

21 


61 

+ 

22 


62 

rcl 

23 


63 

1 

24 


64 

* 

25 


65 

2 

26 


66 

-S' 

27 


67 

n 

28 


68 

= 

29 


69 

sto 

30 


70 

1 

31 


71 

stop 

32 


72 

X 

33 


73 

3 

34 


74 

7 

35 


75 

7 

36 


76 

= 

37 


77 

stop 

38 


78 

X 

39 


79 
















KEY 

# 

KEY 

# 

HALT 

00 

stop 

40 

sto 

01 

rcl 

41 

0 

02 

0 

42 

X 

03 

X 

43 

stop 

04 

rcl 

44 

sto 

05 

2 

45 

1 

06 

* 

46 

X 

07 

ret 

47 

stop 

08 

3 

48 

sto 

09 

= 

49 

2 

10 

X 2 

50 

X 

11 

X 

51 

If 

12 

6 

52 

+ 

13 

2 

53 

stop 

14 

2 

54 

X 2 

15 

9 

55 

sto 

16 

8 

56 

3 

17 

./EE 

57 

-F 

18 

7 

58 

stop 

19 

a 

59 

X 

20 

stop 

60 

stop 

21 

X 

61 

sin 

22 

rcl 

62 

- 

23 

1 

63 

stop 

24 

X 2 

64 

X 

25 

V 

65 

( 

26 

2 

66 

X 

27 

= 

67 

3 

28 

goto 

68 

7 

29 

0 

69 

6 

30 

0 

70 

./EE 

31 


71 

7 

32 


72 

3 

33 


73 


34 


74 

stop 

35 


75 

) 

36 


76 

* 

37 


77 

2 

38 


78 

= 

39 


79 


RADIATION 344 
FROM LOOP 
(OR FERRITE) 
ANTENNA 



H pk ~ if sin 0 

= A*o c H p k 

p _ ^p»< 


For Ferrite replace NIA by 

NIA p,.n 



Execution: 

N/run/l/run/A/run/X/run/r/run/ 

0/run/H pfc /run/Ep k /run/P av / 

run/R f /run/P, 


r 
















MOTION OF 
ELECTRON IN 
TRANSVERSE 
MAGNETIC 
FIELD 


B i 



Radius of path, r ^ sin 0 

Pitch of path, P vT cos 0 
Where (I angle of injection 
v = initial velocity 

- / 2- V, 

\ m 

V equivalent voltage 

Execution: 

(a) V/run/fl/run/B/run/T/run/r/ 
run/P 

(b) goto/1 /2/v/run/ff/run/B/run/ 
T/run/r/run/P 


34.5 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

nA 

01 

1 

41 

X 

02 

sin 

42 

5 

03 

= 

43 

./EE 

04 

stop 

44 

9 

05 

X 

45 

3 

06 

2 

46 

0 

07 

X 

47 

9 

08 

1T 

48 

./EE 

09 

* 

49 

5 

10 

rcl 

50 

= 

11 

1 

51 

sto 

12 

tan 

52 

0 

13 

= 

53 

itop 

14 

goto 

54 

sto 

15 

0 

55 

1 

16 

0 

56 

stop 

17 


57 

1/x 

18 


58 

X 

19 


59 

3 

20 


60 

./EE 

21 


61 

5 

22 


62 

7 

23 


63 

2 

24 


64 

4 

25 


65 

./EE 

26 


66 

1 

27 


67 

1 

28 


68 

+/- 

29 


69 


30 


70 

stop 

31 


71 

X 

32 


72 

rcl 

33 


73 

0 

34 


74 

+ 

35 


75 

2 

36 


76 

V 

37 


77 

7r 

38 


78 

X 

39 


79 


( 

















KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

3 

02 


42 

./EE 

03 


43 

2 

04 


44 

0 

05 


45 

4 

06 


46 

4 

07 


47 

./EE 

08 


48 

1 

09 


49 

g 

10 


50 

+/- 

11 


51 

X 

12 


52 

stop 

13 


53 

4- 

14 


54 

stop 

15 


55 

= 

16 


56 

nA 

17 


57 

goto 

18 


58 

0 

19 


59 

0 

20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


VELOCITY 346 
OF AN 
ACCEL¬ 
ERATED ION 


M mass of ion 
ne = charge on ion 
V = accelerating potential 
(volts) 

/ 2neV 

v ' v nr 

Execution: 

V/run/n/run/M/run/v 


( 















34.7 


ELECTRO¬ 
STATIC 
DEFLECTION 
IN A 

CATHODE 

RAY 



Execution: 


V a /run/V!/run/V,i/run/d/run/o/ 
L/run/S/run/ D 


KEY 

# 

KEY 

# 

HALT 

00 


40 

* 

01 


41 

stop 

02 


42 

-5* 

03 


43 

stop 

04 


44 

sto 

05 


45 

1 

06 


46 

X 

07 


47 

stop 

08 


48 

= 

09 


49 

1/x 

10 


50 

* 

11 


51 

2 

12 


52 

= 

13 


53 

sto 

14 


54 

0 

15 


55 

arc 

16 


56 

tan 

17 


57 

stop 

18 


58 

X 

19 


59 

rcl 

20 


60 

0 

21 


61 

v 

22 


62 

rcl 

23 


63 

1 

24 


64 

= 

25 


65 

stop 

26 


66 

X 

27 


67 

rcl 

28 


68 

1 

29 


69 

- 

30 


70 

goto 

31 


71 

0 

32 


72 

0 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


c 
















KEY 

# 

KEY 

# 

HALT 

00 

1 

40 

V* 

01 

goto 

41 

1/x 

02 

0 

42 

X 

03 

0 

43 

2 

04 


44 

9 

05 


45 

6 

06 


46 

5 

07 


47 

4 

08 


48 

9 

09 


49 

X 

10 


50 

stop 

11 


51 

= 

12 


52 

sto 

13 


53 

0 

14 


54 

X 

15 


55 

stop 

16 


56 

= 

17 


57 

arc 

18 


58 

sin 

19 


59 

sto 

20 


60 

1 

21 


61 

stop 

22 


62 

+ 

23 


63 

( 

24 


64 

X 

25 


65 

rcl 

26 


66 

1 

27 


67 

tan 

28 


68 


29 


69 

sto 

30 


70 

1 

31 


71 

0 

32 


72 

) 

33 


73 

X 

34 


74 

rcl 

35 


75 

0 

36 


76 

= 

37 


77 

stop 

38 


78 

rcl 

39 


79 


MAGNETIC 348 
DEFLECTION 
IN A 

CATHODE 
RAY TUBE 




(out of paper) 


D 


0 arc sin 

vAT. 

D — L tan 0 




Execution. 

Vn/runA'/run/B/run/O/ 

L/run/S/run/D 


( 


























WAVELENGTH 
IN A 

WAVEGUIDE 


During signal transmission by 
waveguide, the wavelength within 
the waveguide is greater than the 
wavelength in an unbounded 
medium at the same frequency. 
The wavelength X gi in a 
rectangular waveguide is given by: 



for the n, m transmission mode, 
where X is the wavelength in free 
space, and a,b are the waveguide 
dimensions. 

This program computes the value 
of X H given the values of X. a. b, n 
and rn. 

Execution: 

X/run/a/run/b/run/n/run/m/ 

run/X g 

Example: 

0.1 /run/1 /run/1 /run/0/run/1 / 
run/ 0 10012 


r 


34.9 


KEY 


KEY 

# 

HALT 

00 

* 

40 

sto 

01 

rcl 

41 

0 

02 

1 

42 

stop 

03 

) 

43 

sto 

04 

X 2 

44 

1 

05 


45 

stop 

06 

y/x 

46 

sto 

07 

sto 

47 

2 

08 

5 

48 

stop 

09 

rcl 

49 

sto 

10 

0 

50 

3 

11 

* 

51 

stop 

12 

rcl 

52 

sto 

13 

5 

53 

4 

14 


54 

X 

15 

stop 

55 

rcl 

16 

goto 

56 

0 

17 

0 

57 

* 

18 

1 

58 

2 

19 


59 

* 

20 


60 

rcl 

21 


61 

2 

22 


62 

= 

23 


63 

X 2 

24 


64 

sto 

25 


65 

6 

26 


66 

1 

27 


67 


28 


68 

rcl 

29 


69 

6 

30 


70 


31 


71 

( 

32 


72 

rcl 

33 


73 

3 

34 


74 

X 

35 


75 

rcl 

36 


76 

0 

37 


77 

* 

38 


78 

2 

39 


79 
















( 


35. ELECTRICAL 
FOURIER ANALYSIS 


We express a periodic voltage as a 
Fourier series in the form 

oo 

E(cot) = E 0 + X E k cos (kcot + 0 k ) 

k = 1 

The following programs find the 
Fourier coefficients Ej and phase 
angles 0j given the peak voltage 

Epk- 

35.1 Half wave rectification 

35.2 Full wave rectification 

35.3 Square wave 

35.4 Triangular wave 

35.5 Sawtooth wave 

35.6 Rectangular pulse of duty 
cycle d 

35.7 Assymetric triangular wave 


( 




( 


HALF WAVE 
RECTI¬ 
FICATION 




Eo = iE ok 

E, - ^ - | 

Em = (4n 2 ' Dir 02n “ ° 
E„„ - 0 

Execution: 

EpK/run/n/run/E^/n/run/E^ . . 

To enter new E pK 
goto/0/1/E pk /run/ ... etc 


35.1 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

X 2 

04 


44 

X 

05 


45 

4 

06 


46 

- 

07 


47 

1 

08 


48 

X 

09 


49 

n 

10 


50 

= 

11 


51 

1/x 

12 


52 

X 

13 


53 

rcl 

14 


54 

0 

15 


55 

= 

16 


56 

goto 

17 


57 

0 

18 


58 

3 

19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


r 

















KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

X 2 

04 


44 

X 

05 


45 

4 

06 


46 

— 

07 


47 

1 

08 


48 

X 

09 


49 

v 

10 


50 

= 

11 


51 

1/x 

12 


52 

X 

13 


53 

rcl 

14 


54 

0 

15 


55 

X 

16 


56 

2 

17 


57 

= 

18 


58 

goto 

19 


59 

0 

20 


60 

3 

21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


FULL 

WAVE 

RECTI¬ 

FICATION 




^2n 1 * 0 

p = 2E pk 

(4n 2 — 1 )w 

<t> n = 0 

Execution: 

Epk/run/n/run/Ejn/n/run/E,,, . 
To enter new E p |< 
goto/0/1/E pk /run/ ... etc 


( 

















SQUARE 

WAVE 


e(u>t) j 


0 


5 

U) 

— = T 

: pk — 





e 2 „ = 0 


E 2n + 1 


4E pk 
(2n 4 1 )tt 


0n 


3rr 

2 


Execution: 

E pk /run/n/run/Ej,, , /r»/ 
run/Ej,, , . .. 

To enter new E |)k : 
goto/0/1/E pk /run/ etc 


35.3 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

X 

04 


44 

2 

05 


45 

— 

06 


46 

1 

07 


47 

X 

08 


48 

7T 

09 


49 

= 

10 


50 

1/x 

11 


51 

X 

12 


52 

rcl 

13 


53 

0 

14 


54 

X 

15 


55 

4 

16 


56 

= 

17 


57 

goto 

18 


58 

0 

19 


59 

3 

20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 





















KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

X 

04 


44 

2 

05 


45 

— 

06 


46 

1 

07 


47 

X 

08 


48 

IT 

09 


49 

= 

10 


50 

X 2 

11 


51 

1/x 

12 


52 

X 

13 


53 

rcl 

14 


54 

0 

15 


55 

X 

16 


56 

8 

17 


57 

= 

18 


58 

goto 

19 


59 

0 

20 


60 

3 

21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


TRI¬ 

ANGULAR 

WAVE 



E _ 

s "-' (2n — 1) 2 ir 2 

E 2 „ = 0 

0 „ = 0 

Execution: 

E pk /run/n/run/E ?n ,/n/ 
run/E 2n _, ... 

To enter new E pk : 
goto/0/1/E pk /run etc 


( 


35.4 

















SAWTOOTH 

WAVE 



Eo = 0 



Execution: 

E pk /run/n/run/E n /n/run/E n ... 

To enter new E pk 
goto/0/1/E pk /run ... etc 


KEY 

HALT 

sto 

0 

stop 

X 

7r 

1/x 

X 

2 

x 

rcl 

0 

goto 

0 

3 


( 


















35.6 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

* 

07 


47 

( 

08 


48 

X 

09 


49 

1 

10 


50 

8 

11 


51 

0 

12 


52 

X 

13 


53 

rcl 

14 


54 

1 

15 


55 

= 

16 


56 

sin 

17 


57 

) 

18 


58 

X 

19 


59 

TT 

20 


60 

= 

21 


61 

1/x 

22 


62 

X 

23 


63 

2 

24 


64 

X 

25 


65 

rcl 

26 


66 

0 

27 


67 

= 

28 


68 

goto 

29 


69 

0 

30 


70 

6 

31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


RECT¬ 
ANGULAR 
PULSE 
TRAIN OF 
DUTY 
CYCLE D 

•kith 


E 0 dEpi< 

0n = 0 

E n = ~sinn7rclE Dk 
nir 

Execution: 

E pk /run/d/run/n/run/ E „/n/ 
run/E„ ... 

To enter new E pk and d 
goto/0/1/E pk /run/d/run/etc 

Error will occur if sin nnxJ 0: 
clear /goto/0/7/n/run/. . . etc. 






















35.7 


ASYM¬ 

METRICAL 

TRIANGULAR 

WAVE 


— dT— 



Execution: 

E pk /run/d/run/n/run/E,, /n/run/E„ 

To enter new E pk , d 
goto/0/1/E pk /run/d/run/ ... etc 


KEY 

# 

KEY 

# 

HALT 

00 

= 

40 

sto 

01 

goto 

41 

0 

02 

0 

42 

stop 

03 

6 

43 

sto 

04 


44 

1 

05 


45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

X 

09 


49 

1 

10 


50 

8 

11 


51 

0 

12 


52 

X 

13 


53 

rcl 

14 


54 

1 

15 


55 

= 

16 


56 

sin 

17 


57 

X 

18 


58 

2 

19 


59 

X 

20 


60 

rcl 

21 


61 

0 

22 


62 

+ 

23 


63 

rcl 

24 


64 

2 

25 


65 

X 2 

26 


66 

T 

27 


67 

n 

28 


68 

X 2 

29 


69 

* 

30 


70 

rcl 

31 


71 

1 

32 


72 

T 

33 


73 

( 

34 


74 

1 

35 


75 

— 

36 


76 

rcl 

37 


77 

1 

38 


78 

) 

39 


79 


( 


















36. HEAT CONDUCTION 
SHAPE FACTORS 


36.1 Cylinder 

36.2 Sphere 

36.3 Horizontal disc 

36.4 Buried Sphere 

In these programs F = shape factor 


r 


( 


CYLINDER 


36.1 


r, = inside radius 
r 0 = outside radius 
L = length 



Execution: 

r 0 /run/r, /run/L/run/F 


KEY 

# 

KEY 

# 

HALT 

00 


40 

* 

01 


41 

stop 

02 


42 

= 

03 


43 

In 

04 


44 

1/x 

05 


45 

X 

06 


46 

2 

07 


47 

X 

08 


48 

stop 

09 


49 

X 

10 


50 

7T 

11 


51 

= 

12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 














SPHERE 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 

03 


43 

stop 

04 


44 

sto 

05 


45 

1 

06 


46 

X 

07 


47 

4 

08 


48 

X 

09 


49 

7T 

10 


50 

* 

11 


51 

( 

12 


52 

rcl 

13 


53 

0 

14 


54 


15 


55 

rcl 

16 


56 

1 

17 


57 

) 

18 


58 

= 

19 


59 

goto 

20 


60 

0 

21 


61 

0 

22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


r 0 = outside radius 
r, = inside radius 
F = ^trfpr, 
ro-fi 

Execution: 

r 0 /run/r, /run/F 














36.3 


HORIZONTAL 

DISC 


r = radius 

D centre line depth 
„ 2.22r 


2.83D 

Execution: 

r/run/D/run/F 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 

03 


43 

2 

04 


44 

m 

m 

05 


45 

2 

06 


46 

2 

07 


47 

* 

08 


48 

( 

09 


49 

rcl 

10 


50 

0 

11 


51 

* 

12 


52 

2 

13 


53 

./EE 

14 


54 

8 

15 


55 

3 

16 


56 

* 

17 


57 

stop 

18 


58 


19 


59 

1 

20 


60 

) 

21 


61 

+/- 

22 


62 

= 

23 


63 

goto 

24 


64 

0 

25 


65 

0 

26 


66 


27 


77 


28 


78 


29 


79 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 















KEY 

# 

KEY 

# 

HALT 

00 


40 

-r 

01 


41 

( 

02 


42 

+ 

03 


43 

stop 

04 


44 


05 


45 

2 

06 


46 

— 

07 


47 

1 

08 


48 

) 

09 


49 

X 

10 


50 

7 r 

11 


51 

+/- 

12 


52 

= 

13 


53 

goto 

14 


54 

0 

15 


55 

0 

16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


BURIED 

SPHERE 


r = radius 

D = centre line depth 



Execution: 

r/run/D/run/F 















37 BEAM BENDING 


37.1 One fixed end, single load at 
free end 

37.2 One fixed end, uniformly 
distributed load 

37.3 Simply supported beam, one 
central load 

37.4 Simply supported beam, 
uniformly distributed load 

37.5 Fixed at both ends, one 
central load 

37.6 Fixed at both ends, one 
acentric load 

37.7 Fixed at both ends, 
uniformly distributed load 

37.8 One fixed end, one pinned 
end, rotation at fixed end 

37.9 One fixed end, one pinned 
end, rotation at pinned end 

37.10 Fixed at both ends, ends 
displaced 


r 


( 



ONE FIXED 
END. LOAD W 
AT FREE END 



end deflection 

= m* 

3EI 

Execution: 

l!/run/W/run/E/run/l/run/slope/ 
run/deflect ion 


0 

x 2 


stop 

2 

stop 


stop 

stop 

X 

rcl 

0 

X 

2 


3 

goto 

0 

0 


( 


















KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 2 

03 


43 

X 

04 


44 

stop 

05 


45 

-r 

06 


46 

6 

07 


47 

* 

08 


48 

stop 

09 


49 

* 

10 


50 

stop 

11 


51 

= 

12 


52 

stop 

13 


53 

X 

14 


54 

rcl 

15 


55 

0 

16 


56 

X 

17 


57 

./EE 

18 


58 

7 

19 


59 

5 

20 


60 

= 

21 


61 

goto 

22 


62 

0 

23 


63 

0 

24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


ONE 

FIXED END 
EQUALLY 
DISTRIB¬ 
UTED 
LOAD W 



slope 


6EI 


deflection 


Wt! 3 

8EI 


Execution: 

V/run/W/run/E/run/l/run/slope/ 

run/deflection 


( 
















SIMPLY 

SUPPORTED 

WITH 

CENTRAL 


TEy 

■BEET 

sto 

0 

X 2 


LOAD W 


V72 w m 



t t 


. . m ’ 2 

end slope lgE) 

central deflection 
WV 3 
48EI 


1 

6 


stop 

stop 

stop 

X 

rcl 

0 


Execution: 

V/run/W/run/E/run/l/run/slope/ 

run/deflection 


3 


goto 

0 

0 


r 




















KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 2 

03 


43 

X 

04 


44 

stop 

05 


45 

-5- 

06 


46 

2 

07 


47 

4 

08 


48 

-5- 

09 


49 

stop 

10 


50 

-r 

11 


51 

stop 

12 


52 

= 

13 


53 

stop 

14 


54 

X 

15 


55 

rcl 

16 


56 

0 

17 


57 

+ 

18 


58 

3 

19 


59 

*««* 

m 

m 

20 


60 

2 

21 


61 

= 

22 


62 

goto 

23 


63 

0 

24 


64 

0 

25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


SIMPLY 374 
SUPPORTED 
BEAM WITH 
DISTRIB¬ 
UTED LOAD 


e 



slope 


24EI 


deflection - 


swe 

384 El 


Execution: 

V/run/W/run/E/run/l /run/slope/ 
run/deflection 


( 
















37.5 


BEAM WITH 
TWO FIXED 
ENDS AND 
CENTRAL 
LOADING W 


V/2 V/2 




/ 

"7- 

Mfa 


^FB 


M fa 


W' 
8 


M fb 


ws 

8 


central deflection 

m 3 

d 192EI 


Execution: 

W/run/V/run/E/run/l/run/M FB / 

run/d 


r 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

sto 

03 


43 

0 

04 


44 

-r 

05 


45 

8 

06 


46 

= 

07 


47 

sto 

08 


48 

1 

09 


49 

X 

10 


50 

rcl 

11 


51 

0 

12 


52 

X 2 

13 


53 

■f 

14 


54 

stop 

15 


55 

-r 

16 


56 

stop 

17 


57 

* 

18 


58 

2 

19 


59 

4 

20 


60 

= 

21 


61 

sto 

22 


62 

0 

23 


63 

rcl 

24 


64 

1 

25 


65 

stop 

26 


66 

rcl 

27 


67 

0 

28 


68 

goto 

29 


69 

0 

30 


70 

0 

31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 
























KEY 

# 

KEY 

# 

HALT 

00 

X 2 

40 

sto 

01 

= 

41 

0 

02 

goto 

42 

X 

03 

0 

43 

stop 

04 

0 

44 

sto 

05 


45 

1 

06 


46 

X 2 

07 


47 

X 

08 


48 

stop 

09 


49 

sto 

10 


50 

2 

11 


51 

* 

12 


52 

( 

13 


53 

rcl 

14 


54 

0 

15 


55 

+ 

16 


56 

rcl 

17 


57 

1 

18 


58 

) 

19 


59 

X 2 

20 


60 

= 

21 


61 

stop 

22 


62 

rcl 

23 


63 

2 

24 


64 

X 

25 


65 

rcl 

26 


66 

0 

27 


67 

X 2 

28 


68 

X 

29 


69 

rcl 

30 


70 

1 

31 


71 

* 

32 


72 

( 

33 


73 

rcl 

34 


74 

0 

35 


75 

+ 

36 


76 

rcl 

37 


77 

1 

38 


78 

) 

39 


79 


BEAM 37 < 
FIXED AT 
BOTH ENDS 
WITH LOAD 
WAT A 
DISTANCE a 
FROM 
END A 


a W 

b 

J 


. * 

/ 

> 


m fa 

Mfb 


Mfa 

M F b 


Wb ? a 

S 3 

Wa^b 

V 3 


Execution: 

a/run/b/run/W/ 
run/M, A /run/M FH 


( 

















KEY 

HALT 


TWO FIXED 
ENDS AND 
EVENLY 
DISTRIBUTED 
LOAD 


\ 

W 

m fb 

i 

Mfa 

i 

\ 


Mfa - ~ 


m 

12 


d 


m 
12 
Wt 3 
384 El 


x 

rcl 

_0_ 

x’ 

3 

2 


Execution: 

W/runA/run/M FH /E/run/l/run/d 


goto 

0 

o 


( 


















KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

* 

03 


43 

stop 

04 


44 

+ 

05 


45 

stop 

06 


46 

* 

07 


47 

3 

08 


48 

= 

09 


49 

goto 

10 


50 

0 

11 


51 

0 

12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


ONE 

FIXED END, 
ONE PINNED 
END-EFFECT 
OF 

ROTATION 
AT FIXED 
END 



Applied moment M 
end slope = 

Execution: 

M/run/V/run/E/run/l/run/slope 


( 


















37.9 


ONE FIXED 
END, ONE 
PINNED 
END- 

ROTATION 
AT PINNED 
END 



Applied moment = M 
MV 

slope - ^ 

Execution: 

M/run/V/run/E/run/l/run/slope 


( 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

* 

03 


43 

stop 

04 


44 

* 

05 


45 

stop 

06 


46 

* 

07 


47 

4 

08 


48 

= 

09 


49 

goto 

10 


50 

0 

11 


51 

0 

12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


















KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

X 

03 


43 

stop 

04 


44 

X 

05 


45 

stop 

06 


46 

* 

07 


47 

stop 

08 


48 

X 2 

09 


49 

X 

10 


50 

6 

11 


51 


12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


END 

DISPLACE¬ 
MENT AT 
BEAM FIXED 
AT BOTH 
ENDS 

fixed m fb 

M fa 

e 


Moments due to end 
displacement 


M fa 


M fb 


6EI6 

I ? 2 


Execution: 

E/run/l/run/6/run/V7run/M t : A 


















38. STRUTS-CRITICAL 
LOAD 


38.1 Strut pinned at both ends 

38.2 Fixed at one end, pinned at 
the other 

38.3 Fixed at both ends 

38.4 Fixed at one end, free at the 
other 


( 



CRITICAL 
LOAD ON 
STRUT 
PINNED AT 
BOTH ENDS 


pinned end* 



Execution: 

E/run/l/run/ 

V/run/Pcm 


r 


38.1 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

X 

03 


43 

7T 

04 


44 

X 2 

05 


45 

* 

06 


46 

stop 

07 


47 

x’ 

08 


48 


09 


49 

goto 

10 


50 

0 

11 


51 

0 

12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 














KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

X 

03 


43 

IT 

04 


44 

X 2 

05 


45 

X 

06 


46 

2 

07 


47 

+ 

08 


48 

stop 

09 


49 

X 2 

10 


50 

= 

11 


51 

goto 

12 


52 

0 

13 


53 

0 

14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


CRITICAL 38 
LOAD FOR 
STRUT 
FIXED AT 
ONE END, 
PINNED 
AT THE 
OTHER END 


Execution: 

E/run/l/run/ 
V/run/ P Cf |, 


( 















STRUT WITH 
TWO FIXED 
ENDS 


KEY 

HALT 


fixed ends 



X 

stop 

X 

If 

X 

4 

stop 

X 3 


p - ! 

r cd» ^,2 

Execution: 

E/run/1/run A'/ 
run/P Cf „ 


goto 

0 

0 


( 















KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

X 

03 


43 

7T 

04 


44 

X 2 

05 


45 

-5* 

06 


46 

4 

07 


47 

* 

08 


48 

stop 

09 


49 

X 2 

10 


50 

= 

11 


51 

goto 

12 


52 

0 

13 


53 

0 

14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


STRUT 
WITH ONE 
FIXED AND 
ONE FREE 
END 


fixed end 



free end 


Execution: 

E/run/l/run/ 
V/run/ Peru 















39. STRESS AND 
STRAIN 

39.1 Torsion of thin walled tube 

39.2 Cylindrical pressure vessel 

39.3 Complex stress —longitudinal 
stress 

39.4 Complex stresses under 
torque 

39.5 Elastic strain energy 


( 





( 


TORSION 
OF THIN 
WALLED 
TUBE 


Torque = 27rr 3 tG — 


— - twist per unit length 


angular deflection 
length 


Execution: 

r/run/t/run/G/run/— /run/torque 


39.1 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

( 

02 


42 

X 2 

03 


43 

) 

04 


44 

X 

05 


45 

2 

06 


46 

X 

07 


47 

7T 

08 


48 

X 

09 


49 

stop 

10 


50 

X 

11 


51 

stop 

12 


52 

X 

13 


53 

stop 

14 


54 


15 


55 

goto 

16 


56 

0 

17 


57 

0 

18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 















KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

+ 

03 


43 

stop 

04 


44 

* 

05 


45 

4 

06 


46 

= 

07 


47 

stop 

08 


48 

X 

09 


49 

2 

10 


50 

- 

11 


51 

goto 

12 


52 

0 

13 


53 

0 

14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


39 2 

CYLINDRICAL 

PRESSURE 

VESSEL 



Longitudinal stress, 

_ _ Pd 
* 4t 

Hoop stress, 

_ _ pd 
°» “ 2t 

Execution: 

p/run/d/run/t/run/u* /run/o v 


r 
















COMPLEX 

STRESSES 



„ "' 2 '’ v . " 1 2 " , co>20 

r„ -- Sin 20 

Execution: 

0/run/« x /run/o v /run/o ( i/run/r<, 


39.3 


KEY 

# 

KEY 

# 

HALT 

00 

0 

40 

X 

01 

sin 

41 

2 

02 

= 

42 

= 

03 

goto 

43 

sto 

04 

0 

44 

0 

05 

0 

45 

stop 

06 


46 

sto 

07 


47 

1 

08 


48 

stop 

09 


49 

sto 

10 


50 

2 

11 


51 

-f 

12 


52 

rcl 

13 


53 

1 

14 


54 

T 

15 


55 

2 

16 


56 

+ 

17 


57 

( 

18 


58 

rcl 

19 


59 

1 

20 


60 


21 


61 

rcl 

22 


62 

2 

23 


63 

-r 

24 


64 

2 

25 


65 


26 


66 

sto 

27 


67 

2 

28 


68 

X 

29 


69 

rcl 

30 


70 

0 

31 


71 

cos 

32 


72 

) 

33 


73 


34 


74 

stop 

35 


75 

rcl 

36 


76 

2 

37 


77 

X 

38 


78 

rcl 

39 


79 


( 

















KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 

03 


43 

( 

04 


44 

stop 

05 


45 

X 

06 


46 

2 

07 


47 

= 

08 


48 

sto 

09 


49 

1 

10 


50 

sin 

11 


51 

) 

12 


52 

= 

13 


53 

stop 

14 


54 

rcl 

15 


55 

1 

16 


56 

cos 

17 


57 

X 

18 


58 

rcl 

19 


59 

0 

20 


60 

+/- 

21 


61 

= 

22 


62 

goto 

23 


63 

0 

24 


64 

0 

25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


COMPLEX 394 
STRESSES 



a„ = t sin 20 
To = -T cos 20 

Execution: 

r/run/0/run/o,, /run/r d 


r 



















ELASTIC 

STRAIN 

ENERGY 


In tension, 


In torsion, 


Execution: 

(a) tf/run/E/run/S, 

(b) r/run/G/run/S 


39.5 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 2 

01 


41 

4* 

02 


42 

2 

03 


43 

-s- 

04 


44 

stop 

05 


45 

= 

06 


46 

goto 

07 


47 

0 

08 


48 

0 

09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 














r 


40. ELASTIC AND 
PLASTIC SECTION 
MODULI 


40.1 Solid rectangular section 

40.2 Thin walled rectangular box 

40.3 Solid circular section 

40.4 Thin walled circular tube 

40.5 Thin I — section 

40.6 Thin I — section 

In this section: 

Z e = elastic section modulus 
Z p = plastic section modulus 

Zp 

S = = shape factor 


r 


( 



SOLID 

RECT¬ 

ANGULAR 

SECTION 



Zo V = 

A = 

s = 


A = 

A = 


b!h 

6 

b^h 

4 

1.5 

bh 2 

6 

bh 2 

4 


Execution: 

b/run/h/run /Z* for C v /run/ 

Z p for C y /run/Z„ for C z /run/ 
Z p for C x 


KEY 

HALT 

sto 

0 


stop 

sto 

1 

6 


stop 

X 

1 

./EE 

5 

stop 

rcl 

0 

x 

rcl 

1 


6 

stop 

X 

1 

./EE 

5 


goto 

0 

0 


( 



















KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

0 

41 

0 

02 

= 

42 

stop 

03 

goto 

43 

sto 

04 

0 

44 

1 

05 

0 

45 

stop 

06 


46 

sto 

07 


47 

2 

08 


48 

X 

09 


49 

( 

10 


50 

rcl 

11 


51 

1 

12 


52 

-5* 

13 


53 

3 

14 


54 

+ 

15 


55 

rcl 

16 


56 

0 

17 


57 

) 

18 


58 

X 

19 


59 

rcl 

20 


60 

1 

21 


61 

= 

22 


62 

sto 

23 


63 

0 

24 


64 

stop 

25 


65 

+ 

26 


66 

( 

27 


67 

rcl 

28 


68 

1 

29 


69 

X 2 

30 


70 

X 

31 


71 

rcl 

32 


62 

2 

33 


73 

-f 

34 


74 

6 

35 


75 

) 

36 


76 

= 

37 


77 

stop 

38 


78 

+ 

39 


79 


THIN 

WALLED 

RECT¬ 

ANGULAR 

BOX 


40.2 



Axis C v : 

Z. = bt (h +1 
Z„ = bt (h 11) 



Execution: 


h/run/b/run/t/run/Z „ /run/Z p / 
run/S 























SOLID 

CIRCULAR 

SECTION 


V 



2 e 


TFT 1 

4 


Zp = 


s = 


4r l 
3 

^ = 1.697953 


Execution: 


r/run/2„/run/2p 


40.3 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

( 

02 


42 

X 2 

03 


43 

) 

04 


44 

-r 

05 


45 

4 

06 


46 

X 

07 


47 

ff 

08 


48 

= 

09 


49 

stop 

10 


50 

X 

11 


51 

1 

12 


52 

6 

13 


53 

-r 

14 


54 

3 

15 


55 

* 

16 


56 

7T 

17 


57 

= 

18 


58 

goto 

19 


59 

0 

20 


60 

0 

21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


r 














KEY 

# 

KEY 

# 

HALT 

00 


40 

x ? 

01 


41 

X 

02 


42 

stop 

03 


43 

X 

04 


44 

7T 

05 


45 

= 

06 


46 

stop 

07 


47 

X 

08 


48 

4 

09 


49 

* 

10 


50 

7T 

11 


51 

= 

12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


THIN 

WALLED 

CIRCULAR 

TUBE 

V 

I 



Z p = 4r 2 t 
S = - - 1.273240 

JT 

Execution: 

r/run/t/run/Z r /run Z p 


( 














40.5 


THIN I 
SECTION 


2t« 


Axis C v : 



S = 1.5 


Execution: 

b/run/t, /run/Z./run/Z , 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 7 

01 


41 

X 

02 


42 

stop 

03 


43 

-5- 

04 


44 

3 

05 


45 

= 

06 


46 

stop 

07 


47 

X 

08 


48 

1 

09 


49 

./EE 

10 


50 

5 

11 


51 

= 

12 


52 

goto 

13 


53 

0 

14 


54 

0 

15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 
















40.6 


KEY 

# 

KEY 

# 

HALT 

00 

goto 

40 

sto 

01 

0 

41 

0 

02 

0 

42 

X 

03 


43 

stop 

04 


44 

= 

05 


45 

sto 

06 


46 

1 

07 


47 

* 

08 


48 

6 

09 


49 

-f 

10 


50 

( 

11 


51 

stop 

12 


52 

X 

13 


53 

stop 

14 


54 

) 

15 


55 

X 

16 


56 

rcl 

17 


57 

0 

18 


58 

= 

19 


59 

stop 

20 


60 

sto 

21 


61 

2 

22 


62 

+ 

23 


63 

( 

24 


64 

rcl 

25 


65 

0 

26 


66 

X 

27 


67 

rcl 

28 


68 

1 

29 


69 

* 

30 


70 

1 

31 


71 

2 

32 


72 

) 

33 


73 

= 

34 


74 

stop 

35 


75 

4 - 

36 


76 

rcl 

37 


77 

2 

38 


78 

= 

39 


79 


Z e AND 
Z p FOR 

THIN I 
SECTION 


b 



Execution: 

h/run/s/run/b/run/t/run/ Z Jr\m! 
Z p/run/ S 


( 

























41. ELECTRONIC 
CIRCUIT DESIGN 

41.1 Wavelength/frequency 
conversion 

41.2 Reactance/frequency 
conversion 

41.3 Decibel conversion 

41.4 Magnitude and phase of an 
impedance 

41.5 Resistors in parallel 

41.6 Voltage drop across resistive 
voltage divider 

41.7 Resistance required to attain 
a given voltage drop 

41.8 Resistance required to attain 
a given attenuation 

41.9 Resistive L-pad 

41.10 I mpedance of a series circuit 

41.11 Parallel to series conversion, 
R—X circuit 

41.12 Parallel to series conversion, 
Z—X circuit 

41.13 Parallel to series conversion, 
Z—Z circuit, (i) 


( 


41.14 Parallel to series conversion 
Z—Z circuit, (ii) 

41.15 T-type resistive attenuator 
section 

41.16 Il-type resistive attenuator 
section 

41.17 Lattice attenuator section 

41.18 n to T network trans¬ 
formation 

41.19 T to n network trans¬ 
formation 

41.20 Simple filters 

41.21 Twin T-network 

41.22 Simple L—R and C—R 
circuits 

41.23 Damping factor and overshot 

41.24 Transfer function of a long 
trailed pair 

41.25 Single tuned circuit with 
losses 


( 



WAVE 

LENGTH/ 

FREQUENCY 

CONVERSION 


t>X = c 

Execution: 

(a) Wavelength in metres/run/ 
frequency in Hertz 

(b) Frequency in Hertz/run/ 
wavelength in metres 


41.1 


KEY 

# 

KEY 

# 

HALT 

00 


40 

1/x 

01 


41 

X 

02 


42 

2 

03 


43 

./EE 

04 


44 

9 

05 


45 

9 

06 


46 

7 

07 


47 

9 

08 


48 

2 

09 


49 

5 

10 


50 

■ — 

m 

m 

11 


51 

8 

12 


52 

= 

13 


53 

goto 

14 


54 

0 

15 


55 

0 

16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


( 















41.2 


KEY 

# 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

stop 

02 


42 

X 

03 


43 

2 

04 


44 

X 

05 


45 

IT 

06 


46 

= 

07 


47 

goto 

08 


48 

0 

09 


49 

0 

10 


50 

Stop 

11 


51 

X 

12 


52 

stop 

13 


53 

X 

14 


54 

2 

15 


55 

X 

16 


56 

7T 

17 


57 

= 

18 


58 

1/x 

19 


59 

goto 

20 


60 

1 

21 


61 

1 

22 


62 

stop 

23 


63 

-s- 

24 


64 

Stop 

25 


65 

4- 

26 


66 

2 

27 


67 

4 

28 


68 

IT 

29 


69 

= 

30 


70 

goto 

31 


71 

2 

32 


72 

3 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


REACTANCE/ 

FREQUENCY 

CON¬ 

VERSIONS 


Xq — 
c 2irvC 

X L = 2m’L 

Execution: 

(a) goto/0/1 /L/run/iVrun/X L 

(b) goto/1 /2/C/run/i'/run/X c 

(c) goto/1 /2/X c /run/i'/run/C 

(d) goto/1/2/C/run/X c /run/» 

(e) goto/2/4/X L /run/«Vrun/L 

(f) goto/2/4/X L /run/L/run/r 


r 














DECIBEL 

CONVERSION 


n^rr 

TOET 


rcl 

0 


Power: 

P, = observed level 
P 0 = reference level 

PdB - 10 , OQio p ' 
Intensity: 

I, = observed level 
l 0 = reference level 

Lib = 20 log, 0 ’ 


log 

x 

1 

0 


Stop 

goto 

0 

1 


1 

0 


Store reference level for power in 
memory 0 and for intensity in 
memory 1. 

Execution: 


alog 

x 

rcl 

0 


(a) goto/0/1/P,/run/P rtll 

(b) goto/1 /4/P tlB /run/P , 

(c) goto/2/7/l,/run/|, t | 

(d) goto/4/0/l dB /run/| , 

It is not necessary to repeat the 
/goto/ to repeat (a), (b), (c) or (d). 


stop 

goto 

1 

4 

rcl 

1 


log 

x 

2 

0 


stop 

goto 

2 

7 


t 














41.4 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

0 

02 


42 

X 2 

03 


43 

+ 

04 


44 

stop 

05 


45 

sto 

06 


46 

1 

07 


47 

X 2 

08 


48 


09 


49 

V'x 

10 


50 

stop 

11 


51 

rcl 

12 


52 

0 

13 


53 


14 


54 

rcl 

15 


55 

1 

16 


56 

= 

17 


57 

arc 

18 


58 

tan 

19 


59 

goto 

20 


60 

0 

21 


61 

0 

22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


MAGNITUDE 
AND PHASE 
OF 

IMPEDANCE 

Z - R+jX 
= |Z|e i0 

|ZJ = 



Answer in degrees. 

Execution: 

X/run/R/run/ i Z /run/0 


( 














RESISTORS 
IN PARALLEL 


Pre-execution: 

C/sto/O 

Execution: 


KEY 
HALT 
1/x 
M + 

0 

rcl 

"~0 

1/x 

goto 

0 

0 


R,/run/R 2 /run/ R - R \_ /run/R 3 

R, + R 2 

/... /R n /run/R po , 


To find resistor R 2 such that 
parallel combination of 


R, and R 2 = R: 
R/run/R,/ + /-/run/R 2 

This program can also be used for 
capacitors in series, inductors in 
parallel and conductors in series. 


( 














KEY 

# 

KEY 

# 

HALT 

00 


40 

1/x 

01 


41 

X 

02 


42 

stop 

03 


43 

X 

04 


44 

stop 

05 


45 

= 

06 


46 

goto 

07 


47 

0 

08 


48 

0 

09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


RESISTIVE 

VOLTAGE 

DIVIDER 


r i 



R — Rj + Rj 

Execution: 

R/run/R ? /run/ E, /run/ E 2 


( 


41.6 
















RESISTIVE 

VOLTAGE 

DIVIDER 





R = R, + R 2 

Execution: 

R/run/E, /run/E 2 /run/Ri/run/R 2 


41.7 


KEY 

# 

KEY 

L 

HALT 

00 


40 

- 

01 


41 

( 

02 


42 

X 

03 


43 

( 

04 


44 

stop 

05 


45 

1/x 

06 


46 

X 

07 


47 

stop 

08 


48 

) 

09 


49 


10 


50 

sto 

11 


51 

0 

12 


52 

) 

13 


53 

= 

14 


54 

stop 

15 


55 

rcl 

16 


56 

0 

17 


57 

goto 

18 


58 

0 

19 


59 

0 

20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


_22_ 


_Z2_ 


r 
















KEY 

# 

KEY 

# 

HALT 

00 


40 


01 


41 

( 

02 


42 

X 

03 


43 

( 

04 


44 

stop 

05 


45 

* 

06 


46 

2 

07 


47 

0 

08 


48 

) 

09 


49 

alog 

10 


50 

= 

11 


51 

sto 

12 


52 

0 

13 


53 

) 

14 


54 

= 

15 


55 

stop 

16 


56 

rcl 

17 


57 

0 

18 


58 

goto 

19 


59 

0 

20 


60 

0 

21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


RESISTIVE 4 ' 8 

VOLTAGE 

DIVIDER 

(also autotransformer of 
negligible resistance) 



R = R 1 + R 2 
A = 20 log f 2 

Execution: 

R/run/A/run/R, /run/R 2 


( 
















41.9 


RESISTIVE 

L-PAD- 

MATCHING 

IMPEDANCES 



R, - v^Ri RbT 

_ _ R»Rb 
Hj " R, 

A v = 20 log”* R ' 

"a 

A ' = 20 Io 9 r^¥, 

G - 101109 &vS 

Execution: 

R a /run/R b /run/R, /run/R 2 /run/A v 
/run/A,/run/G 

Restriction: R„ > R b 


r 


KEY 

# 

KEY 

# 

HALT 

00 

stop 

40 

sto 

01 

rcl 

41 

0 

02 

0 

42 


03 

4- 

43 

stop 

04 

( 

44 

X 

05 

+ 

45 

rcl 

06 

rcl 

46 

0 

07 

1 

47 

= 

08 

) 

48 

y* 

09 

= 

49 

sto 

10 

log 

50 

1 

11 

X 

51 

stop 

12 

2 

52 

1/x 

13 

0 

53 

X 

14 

= 

54 

( 

15 

stop 

55 

rcl 

16 

rcl 

56 

0 

17 

0 

57 

X 2 

18 


58 


19 

rcl 

59 

rcl 

20 

1 

60 

1 

21 

4- 

61 

X 2 

22 

( 

62 

) 

23 

rcl 

63 


24 

0 

64 

Stop 

25 

+ 

65 

rcl 

26 

rcl 

66 

0 

27 

1 

67 


28 

) 

68 

rcl 

29 


69 

1 

30 

log 

70 

4- 

31 

X 

71 

rcl 

32 

1 

72 

0 

33 

0 

73 

= 

34 

= 

74 

log 

35 

goto 

75 

X 

36 

0 

76 

2 

37 

0 

77 

0 

38 


78 

= 

39 


79 

















41.10 


KEY 

# 

KEY 

# 

HALT 

00 


40 

sto 

01 


41 

1 

02 


42 

stop 

03 


43 

sto 

04 


44 

2 

05 


45 

stop 

06 


46 

X 

07 


47 

2 

08 


48 

X 

09 


49 

7T 

10 


50 

= 

11 


51 

sto 

12 


52 

0 

13 


53 

X 

14 


54 

rcl 

15 


55 

1 

16 


56 

= 

17 


57 

1/x 

18 


58 

sto 

19 


59 

3 

20 


60 

rcl 

21 


61 

0 

22 


62 

X 

23 


63 

rcl 

24 


64 

2 

25 


65 

- 

26 


66 

rcl 

27 


67 

3 

28 


68 

= 

29 


69 

stop 

30 


70 

goto 

31 


71 

0 

32 


72 

1 

33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


IMPEDANCE 
OF A SERIES 
CIRCUIT 


The impedance of a circuit con¬ 
sisting of a resistor, a capacitor 
and an inductor is series thus 



is given at any frequency, f, by 
Z = R + jX 

where 

X = " L ^ 
and 

co = 2irf 

This program computes the value 
of the reactance, X, given the 
values of f, L and C. 

Execution: 

C/run/L/run/f/run/X 

Example. 

10 3 /run/10 3 /run/1000/run 
16 .1240305 


r 














CONVERSION 
OF A 

PARALLEL 

CIRCUIT 

TO AN 

EQUIVALENT 

SERIES 

CIRCUIT 


R i 

-vw^ 


xi 

The impedance of the parallel 
circuit is given by 

_ R,x; + jX,R ? 
x? + R| 

Therefore, the equivalent series 
circuit has resistance, 

R R ’ X ’ 

X? f R 2 

and reactance, 
x = 

X? + R 2 

This program computes the 
values of R and X given the 
values of R, and X,. 

Execution: 

X, /run/R, /run/ R/run/X 

Example: 

3/run/4/run/1.44/run/ 1.92 


( 


41.11 


KEY 

# 

KEY 

# 

HALT 

00 

1 

40 

sto 

01 


41 

0 

02 


42 

stop 

03 


43 

sto 

04 


44 

1 

05 


45 

X 2 

06 


46 

+ 

07 


47 

( 

08 


48 

rcl 

09 


49 

0 

10 


50 

) 

11 


51 

X 2 

12 


52 

= 

13 


53 

sto 

14 


54 

2 

15 


55 

rcl 

16 


56 

0 

17 


57 

X 2 

18 


58 

X 

19 


59 

rcl 

20 


60 

1 

21 


61 

-r 

22 


62 

rcl 

23 


63 

2 

24 


64 

= 

25 


65 

stop 

26 


66 

rcl 

27 


67 

1 

28 


68 

X 2 

29 


69 

X 

30 


70 

rcl 

31 


71 

0 

32 


72 

+ 

33 


73 

rcl 

34 


74 

2 

35 


75 

= 

36 


76 

stop 

37 


77 

goto 

38 


78 

0 

39 


79 





















KEY 

# 

KEY 

# 

HALT 

00 

X 

40 

sto 

01 

rcl 

41 

0 

02 

2 

42 

stop 

03 

•f 

43 

sto 

04 

( 

44 

1 

05 

rcl 

45 

stop 

06 

0 

46 

sto 

07 

) 

47 

2 

08 

X 2 

48 

+ 

09 

= 

49 

rcl 

10 

X 

50 

1 

11 

rcl 

51 

= 

12 

1 

52 

X 2 

13 

* 

53 

+ 

14 

rcl 

54 

( 

15 

3 

55 

rcl 

16 

= 

56 

0 

17 

stop 

57 

) 

18 

goto 

58 

X 2 

19 

0 

59 

= 

20 

1 

60 

sto 

21 


61 

3 

22 


62 

rcl 

23 


63 

1 

24 


64 

X 2 

25 


65 

X 

26 


66 

0 

27 


67 

rcl 

28 


68 

0 

29 


69 

* 

30 


70 

rcl 

31 


71 

3 

32 


72 

= 

33 


73 

stop 

34 


74 

rcl 

35 


75 

1 

36 


76 

+ 

37 


77 

rcl 

38 


78 

2 

39 


79 


CONVER- 4 12 
SION OF A 
PARALLEL 
CIRCUIT 
TO AN 
EQUIVALENT 
SERIES 
CIRCUIT 



The impedance of the parallel 
circuit is given by 

R, X£+ jX ,(R? + X 2 (X,+X 2 )) 
(X, + X 2 ) 2 + R, 
Therefore, the equivalent series 
circuit has resistance 
r _ B.X? 

(X, + X 3 >* + R? 
and reactance 

x = X,(R? + X 2 (X, -f X 2 ) ) 

(X, + X 2 ) 2 + R, 

This program computes the values 
of R and X given the values of R,, 
X, and X 2 

Execution: 

R, /run/X ,/run/X 2 /run/R/run/X 

Example: 

5/run/3/run/2/run/0.9/run/2. 1 


( 





















CONVERSION 
OF A 

PARALLEL 

CIRCUIT 

TO AN 

EQUIVALENT 

SERIES 

CIRCUIT 



The impedance of the parallel 
circuit is given by 
Z - R + jX 
where 

R - {(X, + X 2 )(X,R 2 + R,X 2 ) + 
(R, + RzHR.R.-X^H/D 
X = {(R, + R 2 )(X,R 2 + R,X 2 )- 
(X, + X 2 )(R,R 2 - X,X 2 ) }/D 
where D = (R, + R^-ffX, + X 2 ) 2 
Therefore, the equivalent series 
circuit has resistance R and 
reactance X. This program 
computes the value of R given 
the values of R,, R 2 , X, and X 2 . 
The next program computes the 
value of X. 

Execution: 

R, /run/R 2 /run/X, /run/X 2 /run/R 

Example: 

1 /run/3/run/2/run/1 /run/ 1 


41.13 


KEY 

# 

KEY 

# 

HALT 

00 

sto 

40 

sto 

01 

5 

41 

0 

02 

rcl 

42 

stop 

03 

1 

43 

sto 

04 

M + 

44 

1 

05 

0 

45 

stop 

06 

rcl 

46 

sto 

07 

3 

47 

2 

08 

M + 

48 

stop 

09 

2 

49 

sto 

10 

rcl 

50 

3 

11 

0 

51 

X 

12 

X 2 

52 

rcl 

13 

+ 

53 

0 

14 

( 

54 

+ 

15 

rcl 

55 

1 

16 

2 

56 

rcl 

17 

) 

57 

2 

18 

X 2 

58 

X 

19 

= 

59 

rcl 

20 

sto 

60 

1 

21 

6 

61 

) 

22 

rcl 

62 

= 

23 

2 

63 

sto 

24 

X 

64 

4 

25 

rcl 

65 

rcl 

26 

4 

66 

0 

27 

+ 

67 

X 

28 

( 

68 

rcl 

29 

rcl 

69 

1 

30 

0 

70 

- 

31 

X 

71 

( 

32 

rcl 

72 

rcl 

33 

5 

73 

2 

34 

) 

74 

X 

35 


75 

rcl 

36 

0 

76 

3 

37 

rcl 

77 

) 

38 

6 

78 

= 

39 

= 

79 


( 
















41.14 


KEY 

# 

KEY 

# 

HALT 

00 

sto 

40 

sto 

01 

5 

41 

0 

02 

rcl 

42 

stop 

03 

1 

43 

sto 

04 

M + 

44 

1 

05 

0 

45 

stop 

06 

rcl 

46 

sto 

07 

3 

47 

2 

08 

M + 

48 

stop 

09 

2 

49 

sto 

10 

rcl 

50 

3 

11 

0 

51 

X 

12 

X 2 

52 

rcl 

13 

•f 

53 

0 

14 

( 

54 

+ 

15 

rcl 

55 

( 

16 

2 

56 

rcl 

17 

) 

57 

2 

18 

X 2 

58 

X 

19 

= 

59 

rcl 

20 

sto 

60 

1 

21 

6 

61 

) 

22 

rcl 

62 

= 

23 

0 

63 

sto 

24 

x 

64 

4 

25 

rcl 

65 

rcl 

26 

4 

66 

0 

27 

— 

67 

X 

28 

( 

68 

rcl 

29 

rcl 

69 

1 

30 

2 

70 

— 

31 

X 

71 

( 

32 

rcl 

72 

rcl 

33 

5 

73 

2 

34 

) 

74 

X 

35 


75 

rcl 

36 

0 

76 

3 

37 

rcl 

77 

) 

38 

6 

78 

= 

39 

= 

79 


CONVERSION 
OF A 

PARALLEL 
CIRCUIT 
TO AN 
EQUIVALENT 


SERIES 

CIRCUIT 



This program computes the 
reactance, X, of the series circuit 
equivalent to the parallel circuit 
described for the previous program. 

Execution: 

R ,/run/R 2 /run/X 1 /run/X 2 /run/X 

Example: 

1 /run/3/run/2/run/2/run/ 1.125 


( 
















RESISTIVE 

ATTEN¬ 

UATOR 

SECTIONS 

T-TYPE 



R o — \/RaRb 



Design attenuation, a, 

- x/a v a, 

Power attenuation, A, 

= 20 log a. 

Forward voltage transfer ratio 


a 



Forward current transfer ratio 


= a, = a p. 
Restriction: a < 1. 


R, 

R 2 

r 3 


p( 1 ta 2 ) ~ 2a 


1 -a 2 


2a 

1 a 2 


R o 


Ro 


1 (1 + a 2 ) 2a 
p 1 - a 2 


Ro 


( 


41.15 


KEY 

# 

KEY 

# 

HALT 

00 

= 

40 

+/- 

01 

sto 

41 

4- 

02 

3 

42 

2 

03 

) 

43 

0 

04 


44 

= 

05 

I 

45 

alog 

06 

rcl 

46 

stop 

07 

0 

47 

sto 

08 

X 

48 

0 

09 

2 

49 

stop 

10 

+ 

50 

* 

11 

( 

51 

{ 

12 

1 

52 

X 

13 

— 

53 

stop 

14 

rcl 

54 


15 

0 

55 

v/x 

16 

X 2 

56 

sto 

17 

) 

57 

1 

18 

X 

58 

) 

19 

rcl 

59 


20 

1 

60 

stop 

21 

= 

61 

sto 

22 

sto 

62 

2 

23 

0 

63 

X 

24 

> 

64 

< 

25 

= 

65 

rcl 

26 

stop 

66 

0 

27 

rcl 

67 

X 2 

28 

0 

68 

4- 

29 

stop 

69 

1 

30 

rcl 

70 

T 

31 

3 

71 

( 

32 

4- 

72 

+/“ 

33 

rcl 

73 

T 

34 

2 

74 

2 

35 


75 

> 

36 

0 

76 

X 

37 

rcl 

77 

rcl 

38 

0 

78 

1 

39 

= 

79 

















Execution: 

(a) A/run/a/run/R a /run/R b /run/p 
/run/ R,/run/ R 2 /run/ R 3 

or 

(b) goto/0/8/a/run/R a /run/R b 
/run/p/run/ R, /run/R 3 /run/ R , 


41.15(H) 


( 


41.16 


RESISTANCE 

ATTENUATOR 

SECTION, 

TTTYPE 


r 2 


R.-* R, R 3 


R b 



Rq - \/RaRb 
_ Ra _ Ro 
p Ro Rt> 
a v = forward current transfer 
ratio 
_ a 
P 


a> = forward current transfer 
ratio 
= a p 

a ~ design attenuation 
= y/a v a, 

A - power attenuation 
= 20 log a 

1 a2 


Ri 


(1 + a 2 ) 2a 


R - 1-a 2 _ R 

" p( 1 + a 2 ) - 2a R ° 

R - ^ 

R * ’ 2a 


t 


KEY 

# 

KEY 

# 

HALT 

00 

sto 

40 

+/- 

01 

4 

41 

4* 

02 

+/- 

42 

2 

03 

+ 

43 

0 

04 

( 

44 

= 

05 

rcl 

45 

alog 

06 

3 

46 

stop 

07 

* 

47 

sto 

08 

rcl 

48 

0 

09 

2 

49 

stop 

10 

) 

50 

+ 

11 

4- 

51 

( 

12 

rcl 

52 

X 

13 

1 

53 

stop 

14 

= 

54 

= 

15 

1/x 

55 


16 

stop 

56 

sto 

17 

rcl 

57 

1 

18 

1 

58 

) 

19 

4- 

59 

= 

20 

rcl 

60 

sto 

21 

4 

61 

2 

22 

= 

62 

stop 

23 

stop 

63 

rcl 

24 

rcl 

64 

0 

25 

3 

65 

arc 

26 

X 

66 

tan 

27 

rcl 

67 

X 

28 

2 

68 

2 

29 


69 

= 

30 

rcl 

70 

sto 

31 

4 

71 

0 

32 

4 

72 

cos 

33 

rcl 

73 

1/x 

34 

1 

74 

sto 

35 

= 

75 

3 

36 

1/x 

76 

rcl 

37 

goto 

77 

0 

38 

0 

78 

tan 

39 

0 

79 



















Execution: 

(a) A/run/a/run/R a /run/R b /run/p 
/run/ R, /run/ R 2 /run/ R 3 

(b) goto/0/8/a/run/R a /run/R b 
/run/p/run/ R, /run/R 2 /run 

/r 3 


( 


LATTICE 

ATTENUATOR 

SECTIONS 



a v = a( = a 
A 20 log a 


Characteristic impedance 


R, 


1 -a 
1 + a 


Ro 


R 2 


1 + a 
1 a 


Ro 


Ro 


Execution: 

(a) A/run/a/run/Ro/run/R,/ 
run/R a 

or 

(b) goto/0/8/a/run/R 0 /run/R,/ 
run/R 2 


( 


41.17 


KEY 

# 

KEY 

# 

HALT 

00 


40 

4- 

01 


41 

2 

02 


42 

0 

03 


43 

+/- 

04 


44 

= 

05 


45 

alog 

06 


46 

stop 

07 


47 

sto 

08 


48 

0 

09 


49 

stop 

10 


50 

sto 

11 


51 

1 

12 


52 

X 

13 


53 

( 

14 


54 

rcl 

15 


55 

0 

16 


56 

+/- 

17 


57 

+ 

18 


58 

1 

19 


59 

* 

20 


60 

( 

21 


61 

+/- 

22 


62 

+ 

23 


63 

2 

24 


64 

) 

25 


65 

) 

26 


66 

= 

27 


67 

stop 

28 


68 

1/x 

29 


69 

X 

30 


70 

rcl 

31 


71 

1 

32 


72 

X 2 

33 


73 

= 

34 


74 

goto 

35 


75 

0 

36 


76 

0 

37 


77 


38 


78 


39 


79 


















41.18 


KEY 

# 

KEY 

# 

HALT 

00 

rcl 

40 

sto 

01 

0 

41 

0 

02 

= 

42 

X 

03 

goto 

43 

stop 

04 

0 

44 

sto 

05 

0 

45 

1 

06 


46 

X 

07 


47 

stop 

08 


48 

sto 

09 


49 

2 

10 


50 

* 

11 


51 

( 

12 


52 

rcl 

13 


53 

0 

14 


54 

+ 

15 


55 

rcl 

16 


56 

1 

17 


57 

+ 

18 


58 

rcl 

19 


59 

2 

20 


60 

) 

21 


61 

= 

22 


62 

sto 

23 


63 

3 

24 


64 

* 

25 


65 

rcl 

26 


66 

2 

27 


67 

= 

28 


68 

stop 

29 


69 

rcl 

30 


70 

3 

31 


71 


32 


72 

rcl 

33 


73 

1 

34 


74 

= 

35 


75 

stop 

36 


76 

rcl 

37 


77 

3 

38 


78 

■S' 

39 


79 


RESISTIVE 
NETWORKS 
T TOTT 
TRANS¬ 
FORMATION 



02 _ R A Rb Rc 

0 Ra + Rb + Rc 
= R1R2 + R2R3 ^ R3R1 
Ri Rc= R2 Rb R3RA = Ro 

Execution: 

Ra /run/R B /run/Rc /run/ R, / 
run/R 2 /run/R 3 

to find R 0 : rcl/3A/x/ 


( 



















RESISTIVE 
NETWORKS 
TT TO T 
TRANS¬ 
FORMATION 



Execution: 

R, /run/R 2 /run/R 3 /run/R A /run/ 
R B /run/R c 

to find R 0 : rcl/OA/x/ 


41.19 


KEY 

# 

KEY 

# 

HALT 

00 

1 

40 

sto 

01 

= 

41 

1 

02 

stop 

42 

X 

03 

goto 

43 

( 

04 

0 

44 

stop 

05 

1 

45 

sto 

06 


46 

2 

07 


47 

+ 

08 


48 

stop 

09 


49 

sto 

10 


50 

3 

11 


51 

) 

12 


52 

+ 

13 


53 

{ 

14 


54 

rcl 

15 


55 

2 

16 


56 

X 

17 


57 

rcl 

18 


58 

3 

19 


59 

) 

20 


60 

= 

21 


61 

sto 

22 


62 

0 

23 


63 

* 

24 


64 

rcl 

25 


65 

3 

26 


66 

= 

27 


67 

stop 

28 


68 

rcl 

29 


69 

0 

30 


70 

* 

31 


71 

rcl 

32 


72 

2 

33 


73 

= 

34 


74 

stop 

35 


75 

rcl 

36 


76 

0 

37 


77 

* 

38 


78 

rcl 

39 


79 


r 
















KEY 

# 

KEY 

# 

HALT 

00 

- 

40 

+ 

01 

1/x 

41 

rcl 

02 

= 

42 

0 

03 

1/x 

43 

= 

04 

* 

44 

goto 

05 

rcl 

45 

5 

06 

0 

46 

6 

07 

X 

47 

1/x 

08 

( 

48 

X 

09 

rcl 

49 

rcl 

10 

1 

50 

0 

11 

- 

51 

+/- 

12 

rcl 

52 

= 

13 

2 

53 

goto 

14 

) 

54 

5 

15 

= 

55 

6 

16 

sto 

56 

+ 

17 

3 

57 

rcl 

18 

X 2 

58 

0 

19 

+ 

59 


20 

1 

60 

1/x 

21 

= 

61 

X 

22 


62 

rcl 

23 

log 

63 

0 

24 

X 

64 

+ 

25 

2 

65 

( 

26 

0 

66 

rcl 

27 

+/- 

67 

2 

28 

= 

68 

- 

29 

stop 

69 

rcl 

30 

rcl 

70 

1 

31 

3 

71 

) 

32 

arc 

72 

= 

33 

tan 

73 

goto 

34 

+/- 

74 

5 

35 

goto 

75 

6 

36 

0 

76 

* 

37 

0 

77 

rcl 

38 


78 

0 

39 


79 


SIMPLE 4,20 
FILTERS 


To find attenuation and phase 
change for angular frequency w 
(or frequency f). 


L R 0 



Low pass: 

cut off frequency - w 0 . 


deviation parameter, V 

Wo 



High pass: 

cutoff frequency = w 0 , 

V = - — 0 

GJ 



Band pass: 

upper cut off frequency w 2 , 
lower cut off frequency = , 

centre frequency w 0 v /w 1 w 2 , 


v r 

wg\ 

1 Uo ) 

1 w 0 

w ) 

\ W 2 - w, / 


i 


























41.20(h) 



- 



Band stop: 

upper pass frequency to 2 . 
lower pass frequency co, 
centre frequency <o 0 - 

co 2 — 

V = —^— 

tO 0 _to^ 

CO co 0 

Attenuation, A(dB) 

20 log v/PFv* 
Phase, 0 = — arc tan V 

Pre-execution: 

Store co 0 and co,, co 2 (if 
applicable) in memories 0 , 1 , 2 
respectively. 

Execution: 

High pass: goto/0/8/co/run/A/ 
run /0 

Low pass: go to/0/1/co/run/ A/ 
run /0 

Band pass: goto/1/7/co/run/A/ 
run /0 

Band stop: goto/3/7/co/run/A/ 
run/0 


r 








KEY 


KEY 

# 

HALT 

00 

+ 

40 

sto 

01 

1 

41 

0 

02 

) 

42 

1/x 

03 

= 

43 

X 

04 

sto 

44 

stop 

05 

2 

45 

- 

06 

X 2 

46 

1/x 

07 

+ 

47 

+ 

08 

1 

48 

2 

09 

= 

49 


10 

n/x 

50 

1/x 

11 

log 

51 

X 

12 

X 

52 

2 

13 

2 

53 

+1- 

14 

0 

54 


15 

+/- 

55 


16 

= 

56 

sto 

17 

stop 

57 

1 

18 

rcl 

58 

stop 

19 

2 

59 

+ 

20 

arc 

60 

1/x 

21 

tan 

61 

= 

22 

+/- 

62 

stop 

23 

goto 

63 

* 

24 

0 

64 

rcl 

25 

0 

65 

0 

26 


66 

— 

27 


67 

1/x 

28 


68 


29 


69 

1/x 

30 


70 

+/- 

31 


71 

X 

32 


72 

2 

33 


73 

X 

34 


74 

( 

35 


75 

rcl 

36 


76 

1 

37 


77 

X 2 

38 


78 

1/x 

39 


79 


TWIN 4,21 
T-NETWORK 


Ro/a aRo 



Design: 

u> 0 = null frequency 

go, = lower cut-off frequency 



a 


( 





















Performance: co = test frequency 
deviation parameter, 
n 



where x = — 

to„ 

2b 

n = — 

a 

Attenuation A 

= -20 log\/1 + v 2 dB 
Phase 0 = —arc tan v 

Execution: 

cjo/run/co, /run/a/run/ b/ 
co/run/A/run/0 


41.21{ii) 


( 



KEY 

# 

KEY 

# 

HALT 

00 


40 

+/- 

01 


41 

e x 

02 


42 

+/- 

03 


43 

+ 

04 


44 

1 

05 


45 

= 

06 


46 

goto 

07 


47 

0 

08 


48 

0 

09 


49 

stop 

10 


50 

+/- 

11 


51 

+ 

12 


52 

1 

13 


53 


14 


54 

In 

15 


55 

+/- 

16 


56 

goto 

17 


57 

1 

18 


58 

0 

19 


59 

stop 

20 


60 

+/ 

21 


61 

e x 

22 


62 

goto 

23 


63 

2 

24 


64 

0 

25 


65 

stop 

26 


66 

In 

27 


67 

+/- 

28 


68 

goto 

29 


69 

2 

30 


70 

6 

31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


SIMPLE 4122 
L-R AND 
C-R 

CIRCUITS 


w(t| r!; v(tl 

J _LJ 

Time constant 7 CR or ^ 

R 

Charge: = 1 — e ,/r 

*0 

Discharge: - e -,/r 

*0 

Execution: 

Charge {a) goto/0/1/ l /run/^ 

(b) goto/1/I/r^/run/ 1 

V 0 r 
t V 

Discharge (a) goto/2/1/-/run/ 

T v 0 

(b) goto/2/7/^-/run/' 
V 0 r 



( 



















DAMPING 

FACTOR 

AND 

OVERSHOOT 


- T r c| |r 


Overshoot y - — 1 

Damping factor 

K _ In y 

\Ar 2 + (In y) 2 



KEY 

HALT 

1 

stop 

In 

( 

x 2 


0 

7T 

X 2 

) 

& 

+/- 


Execution: 

/run/y/run/K 


( 




















41.24 


kEV~ 

IT 

KEY 

# 

HALT 

00 


40 

X 

01 


41 

8 

02 


42 

./EE 

03 


43 

6 

04 


44 

1 

05 


45 

7 

06 


46 

1 

07 


47 

5 

08 


48 

./EE 

09 


49 

5 

10 


50 

+/- 

11 


51 

= 

12 


52 

sto 

13 


53 

0 

14 


54 

stop 

15 


55 

* 

16 


56 

rcl 

17 


57 

0 

18 


58 


19 


59 

e* 

20 


60 

- 

21 


61 

1 

22 


62 

T 

23 


63 

( 

24 


64 

+ 

25 


65 

2 

26 


66 

) 

27 


67 

= 

28 


68 

goto 

29 


69 

1 

30 


70 

5 

31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 


TRANSFER 
FUNCTION 
OF A LONG 
TAILED PAIR 



k Boltzmann's constant 

T Absolute temperature 

(- °C + 273.15) 
q Electronic charge 



1 

sv\ , 

51 

exp jq 

kT )“ 1 

1 

/ 



exp q 

kir 1 

6V 0 

= Z L 5I 


and 

51 


On 

< 

O 

> 

CM 

II 

if the load is 


resistive 


( 



















KEY 

# 

KEY 

# 

HALT 

00 

>/x 

40 

sto 

01 

X 

41 

0 

02 

rcl 

42 

X 

03 

1 

43 

stop 

04 

= 

44 

= 

05 

stop 

45 

1/x 

06 

rcl 

46 

v/s 

07 

2 

47 

sto 

08 

X 

48 

1 

09 

rcl 

49 

+ 

10 

0 

50 

stop 

11 

+ 

51 

X 

12 

rcl 

52 

rcl 

13 

0 

53 

0 

14 

X 2 

54 


15 

X 

55 

sto 

16 

2 

56 

2 

17 

+ 

57 

stop 

18 

1 

58 

* 

19 


59 

rcl 

20 


60 

1 

21 

- 

61 


22 

rcl 

62 

rcl 

23 

0 

63 

0 

24 

X 2 

64 


25 

= 

65 

sto 

26 

V* 

66 

0 

27 

X 

67 

+ 

28 

rcl 

68 

rcl 

29 

1 

69 

2 

30 

= 

70 

= 

31 

goto 

71 

1/x 

32 

0 

72 

stop 

33 

0 

73 

1 

34 


74 


35 


75 

rcl 

36 


76 

0 

37 


77 

x 2 

38 


78 

= 

39 


79 


SINGLE 4125 

TUNED 

CIRCUIT 

WITH 

LOSSES 


FT 


| 


c: 

L 1 

e 

L I i 

i 



This program finds Q and the 
resonant frequencies. 


u> 0 - series resonant frequency 
_ 1 
vTc 

co, ~ in phase resonant 
frequency 



cop - parallel resonant frequency 


- co 0 1+2 


' — +-J - 1 

R co 0 2 l 2 / 


to ,l L ? j 


Execution: 

L/run/C/run/cj 0 /R/run/r/run/Q/ 
run/co, /run/cop 


( 




















Pre-execution: 

goto/0/1/T/run 


41.24(H) 


Execution: 

SV/run/y 

It is not necessary to repeat the 
pre execution to repeat the 
execution. 


r 







00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 



















00 


40 


01 


41 


02 


42 


03 


43 


04 


44 


05 


45 


06 


46 


07 


47 


08 


48 


09 


49 


10 


50 


11 


51 


12 


52 


13 


53 


14 


54 


15 


55 


16 


56 


17 


57 


18 


58 


19 


59 


20 


60 


21 


61 


22 


62 


23 


63 


24 


64 


25 


65 


26 


66 


27 


67 


28 


68 


29 


69 


30 


70 


31 


71 


32 


72 


33 


73 


34 


74 


35 


75 


36 


76 


37 


77 


38 


78 


39 


79 
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